Delphi风格与Xe2浏览器

Question

Win7 x64，Delphi Xe2 update2

迅速：

1. 将编译为x32的新项目应用于项目选项中的visual (vcl)样式，默认情况下选择一个。
2. 关于button1和WebBrowser1的形式
3. 在按钮中，我们编写WebBrowser1.Navigate ('http://google.com')；
4. 我们开始，我们按下按钮-在浏览器中，我们看到一个站点google.com，全是ок。

我们编译为x64，它是启动的ок，按下按钮我们收到一个错误“浮点除以零”。

问题：

1. 那么(错误)呢？就像挣扎一样？(在x64模式下)
2. 如何将视觉风格应用于滚动WebBrowser1条？(在x32模式下) :(本机组件无法皮肤，但AlphaControls皮肤系统-工作正常，并且网页浏览器滚动线皮肤正常。

附注：update3还没有

p.s.s.糟糕的英语:继续

Answer 1

可以对TWebBrowser组件进行子类化并处理这些事件。

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange

加上大小窗口消息。

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

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

Answer 2

VCL样式不能应用于TWebBrowser AFAIK。它的UI由Internet控制，而不是VCL。