Label name

• 

  Ludo

  15-09-2006 17:27

  Ik ben aan het beginnen met programmeren van Delphi en ik kan het volgende niet voor elkaar krijgen.

  Ik wil als er op een knop wordt gedrukt er een nieuw label onstaant op een bepaalde plaats. Dit gaat goed, maar ik wil ieder nieuw “Label” een aparte naar geven waarbij de var N het laatste teken van de naam is. Wie kan mij helpen

  Heel erg bedankt.

  ____________________________

  var

  Form1: TForm1;

  N : Integer=1;

  implementation

  {$R *.DFM}

  procedure TForm1.Button1Click(Sender: TObject);

  Var

  Lbl: Tlabel;

  begin

  Lbl := Tlabel.Create (Self);

  Lbl.Parent:= Self;

  Lbl.left:= Label1.left;

  Lbl.Top:= Label1.Top+ N*25;

  Lbl.Caption:= IntToStr(N);

  N:= N+1;

  end;

  end;
• 

  Norrit

  18-09-2006 16:31

  Lbl.Name := ‘MyLabel’ + IntToStr(N);

  Maar mijn advies met runtime aanmaken van componenten is altijd de naam leeg laten… Wil je grip op je componentje blijven houden kun je het best de .Tag property gebruiken…

  In ieder geval succes ermee