TWebBrowser auf TForm -- KeyPress?

[HJay]

Ich habe eine TForm mit einem TPanel mit ein paar TSpeedButtons und einen TWebBrowser mit TWebBrowser.Align = alClient, der den Rest des Fenster einnimmt.

Ich habe TForm.KeyPreview = True gesetzt, aber FormKeyPress erhält trotzdem keine Tastenanschläge. Verhindert dies der Webbrowser? (Auch wenn ich ein TEdit zusätzlich aufnehme, funktioniert KeyPreview nur, wenn der Edit den Focus hat.)

Was kann man machen? Ich würde sehr gerne wie in allen anderen meinen Programmfenstern ein Schließen des TForm durch Drücken von ESCAPE ermöglichen.

[toms]

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;

[HJay]

Wow, gewusst wie. Vielen Dank, klappt auf Anhieb.

Ich habe zuvor noch nie TApplicationEvents gebraucht. Hat das irgendwelche anderen Auswirkungen auf Events oder ist das "ungefährlich" ohne Nebenwirkungen?

[SirThornberry]

das TApplication-Object bietet die Events OnMessage etc. an. Da damit aber immer nur einer dieses Events verwenden kann ist es besser TApplication-Events zu nutzen da man dann keine Angst haben muss das eine andere Komponenten einem das Event klaut.
Nebenwirkungen hat die Verwendung keine sofern du in den Events nichts schlimmes anstellst.
Grund dafür das dein KeyPreview bei TWebbrowser keinen Effekt hat ist, dass es kein Teil der Delphi VCL ist und sich somit nicht darum kümmert ob KeyPreview in irgend einem Formular aktiv ist.

[HJay]

Danke für die Erläuterung. Die VCL-Events sind natürlich übersichtlich, während ich mich mit Messages nicht auskenne. So oder so, ist das erste Mal, dass KeyPreview nicht seinen Dienst getan hat und die obige Lösung hat perfekt funktioniert.

TWebBrowser ist kein VCL? Hatte ich noch gar nicht gemerkt. Auch danke für diesen Hinweis! Leider ist in D6 das gesamte Internet noch ziemlich sparsam bestückt, aber man kommt halbwegs zurecht. Seltsam, dass TWebbroser nicht auch zur VCL gehört, oder?