TForm.create was nu?

[RomanK]

Hoi, entweder mit Variable für das Label oder ohne:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
NL :TLabel;
begin
  NF := TForm.Create (Self);
  NF.show;
 NL :=TLabel.Create(NF);
 NL.parent := NF;
 NL.caption := 'lalalalei';
end;

und jetzt ohne

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NF := TForm.Create (Self);
  NF.show;
with TLabel.Create(NF) do
begin
parent := NF;
caption := 'lalalalei';
end;
end;