salut j'utilise ce code pour recupérer les frappe du clavier et le prbléme c'est que si j'appuis sur n'importe quel touche (exemple 'A')le Tedit1.text recoit une serie de caractére genre AAAAAAAA selon la durer de l'appuis merci de me corriger le code (NB je debute encore j'ai 1 ou2 moi sniff)
procedure TForm1.Timer1Timer(Sender: TObject);
Var X:Byte;
Begin
For X:=0 to 255 do
Begin
If GetAsyncKeyState(X)<>0 then
begin
Edit1.Text:=Edit1.text + Chr(X);
End;
End;
End;