Raccourcis Clavier dans une application

Bonjour,
Je développe une application avec des boutons sur une form.
J'aimerais lié les actions des boutons à des raccourcis claviers.
Exemple : Le bouton recherche lance la form de recherche d'un client
la touche F1 lance également la form de recherche d'un client
Merci

événement onkeydown de ta form :

Code:

---

1 2 3 4 5 6

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

---

où dans le caption du bouton &Nom du bouton et N souligné sera un raccourci clavier....

Citation:

---

Envoyé par Archimède

événement onkeydown de ta form :

Code:

---

1 2 3 4 5 6

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

---

où dans le caption du bouton &Nom du bouton et N souligné sera un raccourci clavier....

---

En plus la propriété keypreview du form := true

Si la gestion des raccourci intervient aussi sur des menu, toolbutton etc. Il vaudrait mieux utiliser un TActionManager pour grouper le code de toutes les actions de l'interface. Les actions gèrent en standard les raccourcis, les hint, etc...

La réponse de gentilman_delphi m'a permis de résoudre le problème et notamment sa recommandation : la propriété keypreview du form := true
Merci encore