Delphi Xe2 VCL风格和webbrowser

Question

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

Answer 1

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

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange

加上WM_SIZE窗口消息.

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

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