自定义一个过程 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;
建议在htm里面用javascript屏蔽比较好
也不能在所有情况下右键都屏蔽掉啊?加上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;
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;
begin
Handled:=True;
end;