delphi 18 屏蔽和替换 右键菜单

//屏蔽右键菜单
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;

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

来自为知笔记(Wiz)