在delphi 中使用WebBrowser浏览网页，如何屏蔽掉鼠标右键菜单

Question

在delphi 中使用WebBrowser浏览网页，如何屏蔽掉鼠标右键菜单

Answer 1

自定义一个过程
procedure TForm1.Proc_Screen(var Msg: TMsg; var Handled: Boolean);
begin           
  if (Msg.message = WM_RBUTTONDOWN) or (Msg.message = WM_RBUTTONDBLCLK)
      or (Msg.message = WM_RBUTTONUP) then Msg.message := WM_NULL;
end;然后在窗体的FormShow事件里写如下代码
procedure TForm1.FormShow(Sender: TObject);
begin
  Application.OnMessage := Proc_Screen;
end;

Answer 2

建议在htm里面用javascript屏蔽比较好

Answer 3

也不能在所有情况下右键都屏蔽掉啊?加上IsChild(WebBrowser.Handle, Msg.Hwnd)判断!if IsChild(WebBrowser.Handle, Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
  Handled:=True;
end;