Win7 x64、Delphi Xe2 更新2
Prompt:
- 新项目编译为x32，在项目选项中应用视觉（vcl）样式，默认选择一种
- 在表单上的button1和WebBrowser1
- 在按钮中我们编写WebBrowser1.Navigate('http://google.com');
- 我们开始，按下按钮 - 在浏览器中我们看到一个网站 google.com，所有 ок
我们编译为 x64，它启动 ок，通过按下按钮，我们收到错误“float 除零”。
问题：
- 完全如此（错误）？和它一起奋斗吗？ （在 x64 模式下）
- 如何将视觉样式应用于滚动 WebBrowser1 的条带？ （在 x32 模式下）
:( 本机组件无法换肤，但 AlphaControls 换肤系统 - 工作正常，并且网络浏览器滚动线换肤正常
附注update3还没放
附注英语不好：开
这可以通过子类化 TWebBrowser 组件并处理这些事件来完成
OnDocumentComplete
OnNavigateComplete2
OnBeforeNavigate2
OnCommandStateChange
OnProgressChange
加上WM_SIZE http://msdn.microsoft.com/en-us/library/windows/desktop/ms632646%28v=vs.85%29.aspx窗口消息。
关键是使用滚动条 http://docwiki.embarcadero.com/Libraries/en/Vcl.StdCtrls.TScrollBar组件和 Twincontrol 作为容器来重叠原始的 Web 浏览器滚动条。
我刚刚写了一篇文章，深入解释了如何实现这一点Delphi Vcl Styles and TWebBrowser http://theroadtodelphi.wordpress.com/2012/03/20/delphi-vcl-styles-and-twebbrowser-source-code-released/
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
