Rechtsklick im webbrowser unterbinden

[toms]

Hallo

Beim TEmbeddedWB kannst du im OI
DisabledPopupMenus := [rcmAll] setzen. Somit werden sämtliche PopupMenus nicht angezeigt.


TWebbrowser: TApplicationEvents Komponente auf die Form setzen und im OnMessage folgenden Code schreiben:

Delphi-Quellcode:

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