Button F Tasten zuordnen

[Michael19692]

Morgen an alle,

Ich versuche gerade verzweifelt meinem Programm bei zu bringen das wenn ich z.B. F3 drücke der Suchen Button als Button.click ausgelöst wird.

Dazu hab ich gelesen, dass man im Objekt Inspector das Formular KeyPreview auf True setzen soll. Und beim Ereigniss OnKeyPress

Code: Alles auswählen

 
 If Key = '[Wunschtaste]' Then
    [dein Button].Click;
 

Durch "Keypreview = True" wird das Form alle gedrückten Tasten verarbeiten bevor die Controls darauf können.
"Button.Click" simuliert einen Mausklick auf den Button.

Mit Tasten wie s geht das auch. Nur mit VK_F3 nicht.

Gruß
Michael

[m.fuchs]

Nimm mal statt OnKeyPress das Ereignis OnKeyDown:

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_F3 then
    Button1.Click;
end;

OnKeyPress soll man nur benutzen, wenn es sich um darstellbare Zeichen handelt.

[Scotty]

Eine bessere Lösung wäre die Nutzung einer Actionlist. Dort einfach eine neue Action erstellen, den Hotkey deiner Wahl zuordnen und dann bei den Controls, die mit dieser Action assoziiert sein sollen (Menüitem, Toolbarbutton, Button etc), die Property hinzufügen. Das Ereignis wird dann nicht mehr im OnClick behandelt sondern im OnExecute, bzw. solltest du den Code dorthin schieben.

F3 solltest du übrigens nicht benutzen: das ist der Standardhotkey für "Weiter suchen".

[Antrepolit]

Eine bessere Lösung wäre die Nutzung einer Actionlist. Dort einfach eine neue Action erstellen, den Hotkey deiner Wahl zuordnen und dann bei den Controls, die mit dieser Action assoziiert sein sollen (Menüitem, Toolbarbutton, Button etc), die Property hinzufügen. Das Ereignis wird dann nicht mehr im OnClick behandelt sondern im OnExecute, bzw. solltest du den Code dorthin schieben.

F3 solltest du übrigens nicht benutzen: das ist der Standardhotkey für "Weiter suchen".

Dem kann ich nur zustimmen. ActionLists sind die definitiv bessere Lösung, da sie bessere Funktionalitäten beinhalten und viel Arbeit sparen.

[Michael19692]

Ok, ich schau mal was ich zu dem Thema finde und wie weit ich komme.