用Delphi做浏览器的经验

最新推荐文章于 2022-06-02 18:05:24 发布

welong

最新推荐文章于 2022-06-02 18:05:24 发布

阅读量979

点赞数

文章标签： delphi windows

本文链接：https://blog.youkuaiyun.com/welong/article/details/108528179

版权

1、Delphi7中自带的TWebBrowser是ie6，即使你机子上有ie11，Delphi xe15中自带的好像也是ie6，这个不确定，前者是确定的。

2、TWebBrowser中的silent属性设为true，可以避免脚本错误提示。这个属性和C#中的对应控件是不一样的。

3、屏蔽TWebBrowser的右键菜单，用ApplicationEvents控件，加入以下代码：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) then Exit;
Handled :=(message= WM_RBUTTONDOWN) or (message= WM_RBUTTONUP) or (message=WM_CONTEXTMENU);
end;
end;