WebBrowser1屏蔽右键菜单  先要添加ApplicationEvents1,指定其Message事件

//ApplicationEvents1.Event.OnMessage

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;

复制代码