Viele Labels, viel Code?

[Andreas L.]

Hi,
ich würde es so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i:=0 to 128 do   //128 ist die Anzahl der Labels
  begin
   (form1.FindComponent('Label'+inttostr(i)) as TLabel).font.color:=[clGreen];
  end;
end;

Ungetestet...

Aber so in etwa sollte es ausschauen.