Delphi中禁止WebBrowser右键的方法

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

if not IsChild(WebBrowser1.Handle, hWnd) Exit;

Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);

end;

end;