nekinox
Messages postés15Date d'inscriptionmercredi 19 février 2003StatutMembreDernière intervention22 mai 2005
-
20 nov. 2004 à 19:26
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 2006
-
21 nov. 2004 à 12:12
Bonsoir,
Le titre n'est pas très clair désolé, je m'explique :
Il s'agit d'un programme avec plusieurs editX.text dans form1
L'utilisateur rentre des données dans edit1.text par exemple et je voudrais faire que une fois qu'il a fini de tapper son texte quand il appuye sur la touche 'Entrée' ca deplace le curseur vers le edit2.text et que l'utilisateur continue de tapper son texte sans utiliser la souris (cela reviens en fait un peu a appuyer sur la touche TAB mais je préférerais que ca se fasse avec la touche entrée)
je voulais faire comme ca :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then begin
//et la je sais pas quoi mettre
end;
end;
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 201012 20 nov. 2004 à 20:02
Complément :
S'il s'agit d'un code à entrer (nombre de caractères prédéfinis)
tu peux aussi faire ça :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Length(Edit1.Text) = Edit1.MaxLength-1 then Form1.ActiveControl := Edit2;
end;
Une fois que l'utilisateur a entré tous les caractères voulus dans le Edit1, ça passe à l'Edit2.
@+
Bonne Prog'
Nico
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! :)