Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
Turbo Delphi für Win32
|
Re: Bei dyn. erzeugten Labels die Text Farbe ändern
23. Nov 2005, 17:08
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ß.
|