Discussion :

[SimFaridas]

Bonjour à tous !

J'aimerai bien savoir si il existe une méthode où l'on détecte l'appuie de la touche Entrée
Mon but est que lorsque j'ai fini d'écrire dans mon Tedit j'appuie sur la touche entrée et la chaîne va dans une liste.

Merci d'avance !

[kevin254kl]

Salut, tu détectes avec l'event OnKeyUp après tu vérifies que la touche sélectionnée est bien la touche entrer pour continuer ton script.

[SimFaridas]

C'est bon j'ai trouvé
Merci quand même pour la réponse, c'était dans l'idée que j'ai trouvé en plus !
Je créer l’événement "OnKeyUp" puis on remarque la présence du 'Key' du coup en cherchant un peu la touche entrée = 13

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = 13 then
   listenom.items.add(edit1.text);
end;

[Charly910]

Bonjour,

moi j'utilise le OnKeyDown :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure F_Main.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   If (Key = VK_RETURN) Then
     Begin
       { ajoute dans la liste, ou fait autre chose ... }
       ShowMessage('Ajouté à la liste') ;
       { Passe au suivant }
       SelectNext(ActiveControl as TwinControl,True,True);
       Key := 0 ;
     End ;
end;

qui permet aussi de passer au contrôle suivant.
Mais ce doit être équivalent ?
A+
Charly

[Gilbert Geyer]

Bonjour,

Sinon on peut aussi utiliser une fonction que l'on appelle pour détecter l'appui de n'importe quelle touche du clavier et de la souris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
function  ToucheClaMouse(t : integer) : boolean; // Appui Touche
//        utilisations : if ToucheCla(VK_CONTROL) then ...
//                         if ToucheCla(VK_RETURN) then ...
//                       if ToucheCla(Ord('R')) then ...
begin     Result:= ((GetAsyncKeyState(t) and 32768)<> 0)
end;

A+.