Viele Labels, viel Code?

[mkinzler]

Du könntest z.B. die labels dynamisch erzeugen:

Delphi-Quellcode:

var
   lar: Array of TLable;
   i, n: Integer;
...
begin
...
  n := 64;
  setLength( lar, n);
  for i := 0 to n-1 do
  begin
    lar[i] := TLabel.Create(self);
    lar[i].Owner := self;   
    lar[i}.Top := ...
    ...
  end;
   ...
 
  for i := 0 to n-1 do
  begin
    lar[i].Font.Color := clgreen ;
  end;