Discussion :

[gregco1]

Bonjour.
Quel objet peut nous renvoyer la propriété .caption ou.text de l'objet en cours.
Je m'explique.

J'ai 100 Tedit, je voudrais executer sur OnExit de chaque Tedit, une procedure qui verifiera le contenu de ce Tedit.
Il me faut passer en parametre le .caption ou.text du Tedit en cours.
Suis je assez clair ?

[Graffito]

Bonjour,

Je ne sais pas si ca répond à la question ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.AllEditExit(Sender: TObject);
begin
showmessage(Tedit(sender).text);
end;

[gregco1]

Oui et un grand Merci au fan d'Homer.
Désolé j'ai deux autres questions:
Comment connaitre le nom du prochain champ géré par tabStop ?
Forcer/Reprendre la saisie sur un object par exemple Tedit ?
GREG.

[Graffito]

Bonjour,

Pour trouver ou modifier le taborder des composants d'un composants d'un panel (par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for i:=0 to panel1.ControlCount -1 do showmessage(inttostr(controls[i].taborder)) ;

Taborder indique (et permet de) modifier l'ordre des composants.
Tabstop:=false indique que le composant n'est pas traité par la touche TAB.

Pour choisir un composant particulier, utiliser la méthode "SetFocus".

Remarque : si les 100 Tedit ont un comportement semblable, il vaut mieux gérer un tableau de Tedit créés dynamiquement, plutot que de les mettre en dur au départ dans la forme.