Prog [Résolu]

nassim00b 2 Messages postés mardi 15 décembre 2015Date d'inscription 29 décembre 2015 Dernière intervention - 15 déc. 2015 à 10:52 - Dernière réponse : nabil-bago 244 Messages postés mercredi 22 mai 2013Date d'inscription 25 avril 2017 Dernière intervention
- 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

Répondre au sujet
0
Utile
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
nabil-bago 244 Messages postés mercredi 22 mai 2013Date d'inscription 25 avril 2017 Dernière intervention - 15 déc. 2015 à 12:49
0
Utile
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.