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