Prog [Résolu]

Messages postés
2
Date d'inscription
mardi 15 décembre 2015
Statut
Membre
Dernière intervention
29 décembre 2015
- - Dernière réponse : nabil-bago
Messages postés
251
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
18 octobre 2019
- 15 déc. 2015 à 12:49
j'ai inséré des edit et je j'ai limité dans mes tables la longueur des champs
par exmpl: edit5 sa longueur dans la table est 10 caracteres
je voulais que lorsque je saisis dans l'édit ,dés que arrive 10 caracteres insérés il saute vers autre edit
je voudrais SVP un Code source
merci
Afficher la suite 

2 réponses

0
Merci
Bonjour !
procedure TForm1.EditChange(Sender: TObject);
begin
  if Length(TEdit(Sender).Text) = 10 then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;
@+
Commenter la réponse de Yanb
Messages postés
251
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
18 octobre 2019
1
0
Merci
Bonjour
//evenement OnChange de edit1
procedure TForm1.EditOnChange(Sender: TObject);
begin
  if Length(edit1.Text) = 10 then  // si la longueur de l'edit = 10 
    Edit2.SetFocus;       // alors place le curseur dans le edit suivant
end;


Commenter la réponse de nabil-bago