Prvo, mislim da bi to trebalo da resis na neki elegantniji nacin a ne sa 500 labela koji se zovu label1..500 :)
ali ako vec zelis evo kako:
Code:
procedure TFormMain.NewColorForLabel(ID: Integer; NewColor: TColor);
var
c : TComponent;
begin
c := FindComponent('label'+inttostr(ID));
if c is TLabel then
TLabel(c).Color := NewColor;
end;
TFormMain je forma na kojoj su ti ti labeli.
Nadam se da ce pomoci.
Poz.