Mit Shortcut (z.B. Strg + F1) Button.Click ausführen

[Nalincah]

Hab folgendes Problem:

Ich hab in nem Programm 2 Buttons. Einen um zu ner Datenbank zu connecten und einen zum trennen. Jetzt möchte ich die Proceduren per Shortcut aufrufen:

Also: Wenn Key=Strg+F1 then Button1.Click
Key=Strg+F2 then Button2.Click

Wie mach ich das????

[Alexander]

Das kannst du mit einer TActionList machen.
Diese Frage wurde aber schon häufiger gestellt, also kannst du auch suchen ;-)

[Blizzard]

erstmal beim form keypreview auf true und dann

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssCtrl in shift) then
  case key of
   key=vk_f1: button1.click;
   key=vk_f2: button2.click;
  end;
end;

erst überprüfen ob die strg taste gedrückt ist und dann schauen ob f1 oder f2 gedrückt ist (virtuelle tastencodes -> OH)

mfg
Blizzard

[Nalincah]

Vielen Dank. :mrgreen: Hab es jetzt zwar über ein MainMenu gemacht und den Items einfach nen Shortcut zugewiesen, werds aber jetzt mal probieren