Funktionstasten

[Joachim Raap]

Hallo, gibt es eine Möglichkeit (wohl ja), daß man die Funktionstasten belegen kann? So möchte ich z.B. die Funktionstast F1 (wie üblich) mit einer Hilfe-Datei koppeln....
Danke und Gruß

[m.fuchs]

Füge der Unit deines Forms im uses-Bereich die Unit LCLType hinzu.
Setze im Objektinspektor deines Forms die Eigenschaft KeyPreview auf True.
Befülle das OnKeyDown-Ereignis deines Formulars:

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_F1 then
    Application.MessageBox('Hier gibt es Hilfe.', 'Hilfe', MB_OK);
end; 

[Winni]

Hallo!

So etwas geht auch:
Mit Alt-F4 eine Abfrage starten, ob das Programm beendet werden soll.

Code: Alles auswählen

Uses ..... ,LCLtype, Dialogs;
....
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_F4) and (ssAlt in Shift)  then
      begin
      if messagedlg('Programm beenden?',mtInformation, mbOKCancel, 0) = MrOK then close;
     end;
end; 

Winni

[fliegermichl]

Wenn Application.OnHelp implementiert wurde, dann funktioniert das mit der F1 Taste sogar automatisch.

[Joachim Raap]

m.Fuchs = super erklärt, verstehe sogar ich!!!!

Vielen Dank an alle