Discussion :

[aliwassem]

salut les amis

j'ai une form avec 10 panal et dans chaque panal j'ai 3 label alors comment je peut changer la couleur de mes label (tout) avec une seul clique....?

merci d'avance

[anapurna]

Salut

il te suffit de lister les composant de ta form et d'appliquer la couleur si le composant et un tlabel

exemple :

Code :

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

1
2
3
4
5
6
7
 
 for i := 0 to Pred(maform.ComponentCount) do
 begin
   c := maform.Components[i];
   if c is Tlabel Then
     c.Color := CurrentColor	;
 end;

@+ Phil

[aliwassem]

Salut

il te suffit de lister les composant de ta form et d'appliquer la couleur si le composant et un tlabel

exemple :

Code :

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

1
2
3
4
5
6
7
 
 for i := 0 to Pred(maform.ComponentCount) do
 begin
   c := maform.Components[i];
   if c is Tlabel Then
     c.Color := CurrentColor	;
 end;

@+ Phil

Merci beacoup alors moi j'ai essaye ca

Code :

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

1
2
3
4
5
6
7
8
 
 for I := ComponentCount - 1 downto 0 do
 begin
   if Components[I] is Tlabel Then
   begin
     Tlabel(FindComponent(Components[i].Name)).Color:= clBackground;
   end else
 end;

[LadyWasky]

C'est très bien ce que tu as essayé
Il y a juste un else en trop sur l'avant-dernière ligne, c'est tout.

[anapurna]

salut

le findcompoment ne sert a rien dans ton code

@+ Phil