Dynamisches Label als Array??

[MrMyagi]

Moin, wie kann ich ein Label als Array
definieren, so dass undendlich viele
Labels während das Programm läuft auf
der Form erstellen kann??




mfG, Nico

[DeddyH]

Du meinst ein Array of TLabel.

[MrMyagi]

Ja genau,
könntest Du mit vllt mal ein Bsp
Sourcecode Zeigen, wie ich solch
ein Label einbaue?

[mkinzler]

Delphi-Quellcode:

Labels: Array of TLable;
...
SetLength( Labels, 2);
Labels[0] := TLable.Create( self);
Labels[0].Parent := self;
Labels[0].Left : = ... 
Labels[0].Caption := '1. Label';
...

[DeddyH]

Delphi-Quellcode:

var MyLabel: TLabel;
begin
  //Array um eins vergrößern
  SetLength(LabelArray,Succ(Length(LabelArray)));
  //Label erzeugen und Properties setzen
  MyLabel := TLabel.Create(Form);
  MyLabel.Parent := Form;
  MyLabel.Left := 10;
  MyLabel.Top := 10;
  MyLabel.Caption := 'Wuppdi';
  //Label dem Array an letzter Stelle hinzufügen
  LabelArray[High(LabelArray)] := MyLabel;
end;

Ungetestet, sollte aber im Groben passen.

[MrMyagi]

Ok, danke
werde es gleich einmal ausprobieren :thumb: