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

[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