ShortCut mit F1

[Franz100]

Ich möchte in der Anwendung mit <F1> die Hilfe-Datei öffnen. Verwende aber kein Menü.
Jetzt habe ich folgenden Code geschrieben:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F1) then
HtmlHelp(0, PChar(Application.HelpFile), HH_DISPLAY_TOC, 0);
end;

Es kommt auch keine Fehlermeldung. Nur wenn ich <F1> drücke, passiert überhaupt nichts.
Ich habe unter uses HHAPI eingetragen und in den Projekt-Optionen den Namen der Hilfe-Datei.

[Khabarakh]

TForm.KeyPreview auf true gestellt?

OH

Hat KeyPreview den Wert true, erhält das Formular Tastaturereignisse vor dem aktiven Steuerelement (das in der Eigenschaft ActiveControl angegeben ist).

[Franz100]

Vielen Dank, darauf habe ich vergessen gehabt. (Ich glaub das Alter macht sich schön langsam bemerkbar)