Discussion :

[colfire_dev]

je suis amené dans une application à réinitialiser la couleur de 35 label à chaque traitement et puis changer la couleur d'un label des que je pointe sur un enreistrement donné.
voici un exemple pour initialiser les labels:

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
 
with fMenu do
   begin
     label1.Font.Color := clGreen;
     label2.Font.Color := clGreen;
     label3.Font.Color := clGreen;
     label4.Font.Color := clGreen;
     label5.Font.Color := clGreen;
     label6.Font.Color := clGreen;
     label7.Font.Color := clGreen;
     label8.Font.Color := clGreen;
     label9.Font.Color := clGreen;
     label10.Font.Color := clGreen;
  end;
 
if tableChamp.Value = valeur 
 then  LabelX.Font.Color := clRed

X étatnt égal à tableChamp.Value

[ero-sennin]

Salut,

Pour initialiser tes Labels, si ils portent ce nom... tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
var
numLabel:integer;
begin
  for numLabel:=1 to 10 do
  begin
 TLabel(fMenu.FindComponent('Label'+IntToStr(numLabel))).Font.Color:=clGreen;
  end;
end;

Ensuite, pour le test, un truc du genre :

Code :

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

1
2
3
if tableChamp.Value = valeur then
  TLabel(fMenu.FindComponent('Label'+IntToStr(tableChamp.Value))).Font.Color:=clRed;
end;

A toi de voir si ça te convient ....
A+

PS: Penses aux balises [CODE] la prochaine fois que tu post du code stp (le petit # dans la barre d'édition ... merci)

[colfire_dev]

c'est exactement ce qui me fallait, j'ai même plus besoin de la condition.
Bravo et merci