Funktionstasten

Rund um die LCL und andere Komponenten
Antworten
Joachim Raap
Beiträge: 57
Registriert: Mo 30. Mär 2020, 12:37

Funktionstasten

Beitrag von 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ß

Benutzeravatar
m.fuchs
Lazarusforum e. V.
Beiträge: 2252
Registriert: Fr 22. Sep 2006, 19:32
OS, Lazarus, FPC: Winux (Lazarus 2.0.8, FPC 3.0.4)
CPU-Target: x86, x64, arm
Wohnort: Berlin
Kontaktdaten:

Re: Funktionstasten

Beitrag von 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; 
Software, Bibliotheken, Vorträge und mehr: https://www.ypa-software.de

Winni
Beiträge: 178
Registriert: Mo 2. Mär 2009, 16:45
OS, Lazarus, FPC: Laz2.06, fpc 3.04
CPU-Target: 64Bit
Wohnort: Fast Dänemark

Re: Funktionstasten

Beitrag von 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

Benutzeravatar
fliegermichl
Lazarusforum e. V.
Beiträge: 582
Registriert: Do 9. Jun 2011, 09:42
OS, Lazarus, FPC: Winux (L 2.0.7 FPC 3.04)
CPU-Target: 32/64Bit
Wohnort: Echzell

Re: Funktionstasten

Beitrag von fliegermichl »

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

Joachim Raap
Beiträge: 57
Registriert: Mo 30. Mär 2020, 12:37

Re: Funktionstasten

Beitrag von Joachim Raap »

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

Vielen Dank an alle

Antworten