Controls[i] is TEdit (bug)

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:

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.

Euh...

Ca ne serait pas mieux avec "Component" ?

Code:

1
2
3
4
5
6
 
for i :=  0 to Tab_Jnl.ComponentCount - 1 do begin 
  if Tab_Jnl.Component[i] is TEdit then begin 
  ...
  end;
end;

bein oui mais avec Componentcount, il me dit qu'il y en a 0 :roll:

Et comme cela ?

Code:

1
2
3
4
5
6
 
for i :=  0 to pred(ComponentCount) do begin 
  if Components[i] is TEdit then begin 
  ... 
  end; 
end;

Bein oui mais, comme je l'ai dit le componentcount me renvoie 0
tandis que le ControlCount renvoie le bon nombre.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Var i : integer; T : TControl; begin For i := 0 to pred(GroupBox2.ControlCount) do begin T := GroupBox2.Controls[i]; if T is TEdit then begin if TEdit(T).Tag = 0 then begin TEdit(T).Visible := true; TEdit(T).Color := clSkyBlue; TEdit(T).Text := TStaticText(FindComponent(copy(TEdit(T).name,1,pos('_',TEdit(T).name))+'St')).Caption; TEdit(T).BringToFront; end; end; end;
Je dois l'exécuter plusieurs fois (entre 3 et 5 fois qui dépend du "if TEdit(T).Tag = 0 then") pour que tout ce mettent en place.

1) Testes le componentCount comme je te l'ai donné précedemment et tu verras qu'il ne sera plus égal à Zéro.

2) Et si tu retires ton bringToFront ? :wink: cela ne règle-t-il pas le problème ?

Regarde dans le source que je t'ai envoyé l'autre jour, dans l'unité BDESqlExecute et dans par exemple la procédure validerLesModifications, tu auras la réponse à ton problème.

Pour ComponentCount, c'est normal que ça fonctionne pas, parce que les TabSheet sont parents des Edit mais c'est toujours la fiche qui est propriétaire... ComponentCount renvoie le nombre de composants possédés par le composant spécifié, tandis que ControlCount renvoie le nombre de contrôles enfants du contrôle spécifié. Maintenant, pour la solution, je ne pige pas non plus.

Citation:

2) Et si tu retires ton bringToFront ? cela ne règle-t-il pas le problème ?

:bravo: Bien vu.

Fallait encore le savoir :lol:

Merci à tous :wink:

@+