Button verschwindet nach LabelCreate

[Sharky]

Hai Dakuba,

Du solltest bevor Du auf lab zugreiffst dieses erzeugen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 lab: TLabel;
 i : Integer;
 zaehler : Integer;
begin
  zaehler := 5;
  For i:=1 To StrToInt(edtanzahl.Text) Do
  Begin
    zaehler:=zaehler+20;
    Lab:= TLabel.Create(GroupBox1); // Erst erzeugen
    Lab.Visible := true;  // Dann damit arbeiten
    Lab.Parent := GroupBox1;
    Lab.Top:= 20+zaehler;
    Lab.Left:= 14;
    Lab.Caption:= IntToStr(i)+'. ';
  end;
end;