Ich habe eine Frage warum er die Caption nicht annimmt?
-----------------------------------------------------------------------------------------
var start: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
start :=
0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Label: TLabel;
begin
start := start +
1;
Label := TLabel.Create(Self);
With Label do
begin
Parent := Form1;
Caption := Edit1.Text;
// Hier
Left :=
540;
Top :=
20 + 5*(start);
Width:=
200;
Height:=
20;
Name := 'Label'+IntToStr(start);
Transparent := true;
end;
end;