Discussion :

[portu]

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.

[GoustiFruit]

Ca ne serait pas mieux avec "Component" ?

Code :

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

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;

[portu]

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

[Pascal Jankowski]

Et comme cela ?

Code :

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

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

[portu]

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

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
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.

[Pascal Jankowski]

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 ? 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.

[sjrd]

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.

[portu]

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

Bien vu.

Fallait encore le savoir


Merci à tous

@+