delphi - Delphi Xe2 VCL 风格和网络浏览器

Question

Win7 x64, Delphi Xe2 update2

迅速的：

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

我们编译为 x64，它以 ок 启动，通过按下按钮我们收到错误“在 zero 上的浮点除法”。

问题：

1. 完全如此（错误）？和它斗争？（在 x64 模式下）
2. 如何将视觉样式应用于滚动 WebBrowser1 条？（在 x32 模式下）：（本机组件无法皮肤，但 AlphaControls 皮肤系统 - 工作正常，并且 webbrowser 滚动线正常皮肤

ps update3 还没放

pss 英语不好：开

Answer 1

这可以通过继承 TWebBrowser 组件并处理这些事件来完成

OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange

加上WM_SIZE窗口消息。

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

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

Answer 2

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