Prog [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 15 décembre 2015
Statut
Membre
Dernière intervention
29 décembre 2015
-
nabil-bago
Messages postés
256
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
24 octobre 2019
-
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

2 réponses

Bonjour !
procedure TForm1.EditChange(Sender: TObject);
begin
  if Length(TEdit(Sender).Text) = 10 then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;
@+
Messages postés
256
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
24 octobre 2019
1
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;