Strg, Shift in Webbrowser deaktivieren ?

[toms]

Zitat:

Wie konnte ich folgende Tasten deaktivieren in Webbrowser :
1. Strg + n (damit man die Seite in Webbrowser in ein neues Fenster öffnen kann)

Geht auch ohne Hooks, mit der Komponente TApplicationEvents.

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  // Strg + n deaktivieren
  if (Msg.wParam = Ord('N')) and (GetKeyState(VK_CONTROL) < 0) and 
   (Msg.Message = WM_KEYDOWN) then
    begin
      if IsChild(Webbrowser1.Handle, Msg.hwnd) then
        Handled := True;
    end;
end;

Zitat:

2. Shift + Klick (das selbe Ziel)

Im OnNewWindow2 Cancel := True; setzen (Achtung: Keine neuen Fenster können geöffnet werden)