Delphi Xe2 VCL风格和webbrowser

Gu.*_*u. 3 delphi delphi-xe2 vcl-styles

Win7 x64,Delphi Xe2 update2

提示:

  1. 编译为x32的新项目在项目选项中应用了visual(vcl)样式,默认情况下选择一个
  2. 在窗体上的button1和WebBrowser1
  3. 在按钮中我们编写WebBrowser1.Navigate('http://google.com');
  4. 我们开始,我们按下按钮 - 在浏览器中我们看到一个网站google.com,所有ок

我们编译为x64,它启动ок,按下按钮我们收到错误"在zerro浮动分区".

问题:

  1. 完全如此(错误)?和它一样奋斗?(在x64模式下)
  2. 如何将视觉样式应用于滚动WebBrowser1的条带?(在x32模式下):(本机组件不能皮肤,但AlphaControls皮肤系统 - 工作正常,webbrowser滚动线皮肤正常

ps update3还没有放

pss bad english:on

RRU*_*RUZ 6

这可以通过子类化TWebBrowser组件并处理这些事件来完成

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange
Run Code Online (Sandbox Code Playgroud)

加上WM_SIZE窗口消息.

关键是使用TScrollbar组件和Twincontrol作为容器来重叠原始webbrowser滚动条.

我刚刚写了一篇文章,深入解释了如何实现这一点 Delphi Vcl Styles and TWebBrowser