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.

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);
Pas moyen de trouver.

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