Strg, Shift in Webbrowser deaktivieren ?

[thomas2009]

Hallo Leute
ich habe ein kleines Problem. Vorher vermeide ich die Tastenkombination mit javascript in meine HTML. Nun möchte ich einen Delphi-Code verwenden ohne die Manipulation in html Code

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

2. Shift + Klick (das selbe Ziel)

[Cyberstorm]

Also spontan fällt mir nur die Möglichkeit eines Tastatur/Maushooks ein.

Müsstest beim Mousehook halt bei jedem Klick prüfen, ob der Browser gerade den Fokus hat und ob Shift gedrückt wurde und beim Tastaturhook das selbe für die entsprechenden Tasten.

if ((GetKeyState(VK_Control) and $80) = $80) and ((GetKeyState(84) and $80) = $80) then ...
hooks können recht komplex werden. gibt aber einige tutorials. müsstest du dich halt reinfummeln.
such mal nach keyboard hooking usw.

[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)

[Cyberstorm]

achso. in TWebBrowser
dachte allgemein systemweit beim browsen.