Hallo!
Die Eigenschaft
Controls des Parent-Objekts und die Eigenschaft
Tag der Labeles können dir behilflich sein.
Beispiel um alle Labels mit Tag=1 scharz zu färben (musst du halt anpassen):
Delphi-Quellcode:
for i := 0 to Panel1.ControlCount - 1 do
if Panel1.Controls[i] is TLabel then
if (Panel1.Controls[i] as TLabel).Tag = 1 then
(Panel1.Controls[i] as TLabel).Font.Color := clBlack;
Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian