OnKeyDown wird nicht ausgeführt...

[michael.funcke]

Nabend,

will beim Drücken der F1-Taste - egal welches Element gerade den Fokus hat - ne Message erscheinen lassen, aber ich krieg das mit KeyDown einfach nicht hin...
Was ist falsch?

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1 then
    ShowMessage('F1 was pressed!');
end;

Wenn ich einen Breakpoint in die ShowMessage-Zeile setze, wird beim Drücken von F1 aber auch nie "gebreakt". D.h. doch, dass entweder die Prozedur gar nicht aufgerufen wird oder die Bedingung der If-Abfrage nicht erfüllt ist, oder, liebe Delphi-Experten?

[himitsu]

KeyPreview der Form auf True setzen?
Sonst gehen Tastenereignisse natürlich erstmal an die Komponenten, welche grade aktiv sind und auf Tastaturereignisse reagieren, wie z.B. Buttons, Edits und Co.

Und wenn das nicht reicht, dann wirst du wohl auf Hooks ausweichen müssen.

[michael.funcke]

Super! Danke, das wars! :D