Bonjour à toutes et à tous,
J'essaye d'attribuer la touche P du clavier pour l'exécution du code de mon Tbutton.
La propriété "KeyPreview" de mon TForm est à "true" et mon code est bien dans le "OnkeyDown" du TForm.
Cela fonctionne mais par contre je ne sais plus rien écrire dans mon TEdit.
Pas moyen de trouver.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If ((Key = Ord('p')) or (Key = Ord('P'))) Then BtnClick(sender); end; BplayClick(Sender);
Merci d'avance pour une explication.
Edit : Désolé, j'avais mis une instruction dans le OnKeyDown qui n'étais pas à la bonne place.
@+,
cincap
Partager