Rechtsklick im TWebBrowser deaktivieren

[toms]

Einfacher geht's so:

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then
  begin
    if IsChild(Webbrowser1.Handle, Msg.hwnd) then
    begin
      Handled := True;
    end;
  end;
end;