Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

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

AW: TWebBrowser auf TForm -- KeyPress?

  Alt 27. Nov 2010, 17:42
Setze eine TApplicationEvents Komponente auf deine Form. Im OnMessage Ereignis kannst du dann ESC etc. abfangen.

Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.wParam = VK_ESCAPE) and (Msg.message = WM_KEYDOWN) then
  begin
    // ESCAPE
  end;
end;
Thomas
  Mit Zitat antworten Zitat