Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 

Re: Strg, Shift in Webbrowser deaktivieren ?

  Alt 18. Nov 2008, 04:05
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)
Thomas
  Mit Zitat antworten Zitat