Prog

Résolu
nassim00b Messages postés 2 Date d'inscription mardi 15 décembre 2015 Statut Membre Dernière intervention 29 décembre 2015 - 15 déc. 2015 à 10:52
nabil-bago Messages postés 255 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 novembre 2021 - 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

2 réponses

Bonjour !
procedure TForm1.EditChange(Sender: TObject);
begin
  if Length(TEdit(Sender).Text) = 10 then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;
@+
0
nabil-bago Messages postés 255 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 novembre 2021 1
15 déc. 2015 à 12:49
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;


0