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;