Discussion :

[Mihalis]

bonjour, existe-t-il un moyen de parcourir une a une les form d'un projet?
je m'explique j'ai une form ou l'utilisateur peut choisir la couleur des composants
plutot que de mettre ds chaque form le code permettant de changer la couleur des composants, je me suis dit(sous la douche) qu'il existait surement un moyen de faire une boucle pr parcourir toutes les forms
est-ce possible ?merci

[TicTacToe]

Code :

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

Screen.Forms

+

[banban54]

bonjour

quelque chose comme ça devrait marcher

Code :

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

1
2
3
4
5
6
 
for i := 0 to Application.ComponentCount -1  do
  If CTemp is TForm Then
    With Components[i] as TForm do Begin
        // tes traitements
    end;

à plus

[Mihalis]

ok je testerai tt ca demain merci

[banban54]

bonjour

je viens de m'appercevoir d'une bourde dans mon dernier post:
il faut remplacer CTemp (qui n'est pas défini ici) par Components[i]

Code :

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

1
2
3
4
5
6
 
for i := 0 to Application.ComponentCount -1  do
  If Components[i] is TForm Then
    With Components[i] as TForm do Begin
        // tes traitements
    end;

à plus

[Mihalis]

merci de tes réponses, il me semble que cela devrait fonctionner, seulement maintenant mon problème est que components[j].controls n'est plus pris il ne reconnait pas components[j] comme une forme
j'ai essayé de le mettre ds une variable de type tcomponent mais il ne l'accepte pas

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
 
for j := 0 to Application.ComponentCount -1  do
  If Components[j] is TForm Then
    With Components[j] as TForm do Begin
 
      For i := 0 to components[j].ControlCount-1 do
      begin
        if components[j].Controls[i] is TEdit Then
          (components[j].Controls[i] as tedit).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
        if components[j].Controls[i] is Tcombobox Then
          (components[j].Controls[i] as tcombobox).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
        if (components[j].Controls[i] is tdatetimepicker) then
          (components[j].Controls[i] as tdatetimepicker).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
         if components[j].Controls[i] is Tdbgrid Then
          (components[j].Controls[i] as tdbgrid).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
   end;
 end;

[Bleys]

Salut,

Si je ne m'abuse ton erreur est à la dernière ligne ici ?

Code :

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

1
2
3
4
5
6
7
8
9
 for j := 0 to Application.ComponentCount -1  do
  If Components[j] is TForm Then
    With Components[j] as TForm do Begin
 
    For i := 0 to components[j].ControlCount-1 do
begin
if components[j].Controls[i] is TEdit Then
 (components[j].Controls[i] as tedit).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
 if components[j].Controls[i] is Tcombobox Then

D'une certaine façon c'est normal, tu lui dit : avec le composant(jième) fais => pour le composant(jième) de composant(jième) ... il comprends pas ...


Donc si je ne me trompe pas remplace par :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
for j := 0 to Application.ComponentCount -1  do
  If Components[j] is TForm Then
    With Components[j] as TForm do Begin
 
    For i := 0 to ControlCount-1 do
begin
if Controls[i] is TEdit Then
 (Controls[i] as tedit).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
 if Controls[i] is Tcombobox Then ...

[Bleys]

Je viens de penser il est peut-être également nécessaire de lui préciser de quoi on parle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
for j := 0 to Application.ComponentCount -1  do
  If Application.Components[j] is TForm Then
    With Application.Components[j] as TForm do Begin
 
    For i := 0 to ControlCount-1 do
begin
if Controls[i] is TEdit Then
 (Controls[i] as tedit).Color:=stringtocolor(querycouleur.fieldbyname('interieur').asstring);
 if Controls[i] is Tcombobox Then
...

A la prochaine

[Mihalis]

ok impeccable ca marche

[Bleys]

C'est cool


Pense au TAG Résolu

[Mihalis]

euh, excusez-moi encore, comment puis-je faire pr connaitre le nombre de composants d'un groupbox ?

[Bleys]

bonjour, excuse-moi encore, est ce qu'il existe un moyen de connaitre le nombre de composants d'un groupbox, pcq ca marche pr tout sauf pr ce qui est dans les groupbox :s

Pour les groupBox c'est le même principe que ce que tu fais jusqu'à présent.
En fait il faudrait que tu rajoutes une condition sur le type du composant analysé et que s'il s'agit d'un GroupBox et bien qu'il fasse les modif que tu veux avec la même programmation que si c'était une Form.

Le mieux pour ça c'est d'utiliser une fonction récursive.
J'ai un exemple sous la main j'ai fait ça y'a pas longtemps le voila :

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
18
19
20
21
22
23
 
Procedure ChangeColor(Group : TGroupBox);
var Index, Error, Number : Integer;
    laData : TLabel;
Begin
  for Index := 0 to Group.ControlCount-1 do
  Begin
   if (Group.Controls[Index] is TGroupBox) then ChangeColor(Group.Controls[Index] as TGroupBox);
   If (Group.Controls[Index] is TLabel) then
      Begin
        laData:=Group.Controls[Index] as TLabel;
        Val(laData.Caption,Number,Error);
        if Error=0 then
           if Number>0 then
             laData.Font.Color:=clBlue
           else if Number <0 then laData.Font.Color:=clRed
           else laData.Font.Color:=clBlack;
      end;
  end;
 
 
 
End;

Bon moi dans mon cas ça se limitait à des TGroupBox mais tu peux très bien modifier la fonction pour qu'elle gère aussi bien un composant de type TGroupBox ou TForm ...


Voila

[Mihalis]

ok impeccable j'ai enfin un code qui me plait merci bcp de votre aide