Bonjour à tous

Mon problème est le suivant

Je souhaite faire une action (ou plusieurs) action(s) sur les TEdit se trouvant dans un TTabSheet.

Pour cela j'ai fait ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var
i : integer;
begin
For i :=  0 to Tab_Jnl.ControlCount-1 do begin
   if Tab_Jnl.Controls[i] is TEdit then begin
     if TEdit(Tab_Jnl.Controls[i]).Tag = 0 then begin
       TEdit(Tab_Jnl.Controls[i]).Visible := true;
       TEdit(Tab_Jnl.Controls[i]).Color := clSkyBlue;
       TEdit(Tab_Jnl.Controls[i]).Text := TStaticText(FindComponent(copy(TEdit(Tab_Jnl.Controls[i]).name,1,
       pos('_',TEdit(Tab_Jnl.Controls[i]).name))+'St')).Caption;
       TEdit(Tab_Jnl.Controls[i]).BringToFront;
     end;
   end;
end;
Ca marche parfaitement a part que je suis obligé d'appeller plusieurs fois cette procedure afin que tout les TEdit reçoivent l'action(s).
D'où ma question : Pourquoi ? Qu'est ce qui cloche ?

Merci à vous.