delphi中屏蔽浏览器控件右键菜单

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  mPoint : TPoint;
begin
  if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
     ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
  begin
    GetCursorPos(mPoint);
    //PopupMenu1.Popup(mPoint.X, mPoint.Y);  这句可以用自己的菜单替换默认菜单
    Handled:=True;
  end;