Delphi中禁止WebBrowser右键的方法

最新推荐文章于 2023-11-28 18:31:13 发布

Xiaowq

最新推荐文章于 2023-11-28 18:31:13 发布

阅读量2.5k

点赞数

文章标签： webbrowser delphi

本文链接：https://blog.csdn.net/xiaowq/article/details/6589598

版权

Delphi中禁止WebBrowser右键的方法

2011年06月27日星期一 14:09

uses MSHtml;

//在控件标签additional中找到TApplicationEvents控件，拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码：
//替换右键菜单

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
mPoint: TPoint;
begin
if IsChild(WebBrowser.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint); //得到光标位置
pm5.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单
Handled := True;
end;
end;

或者
//屏蔽右键菜单

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