hm, setzte den Aufruf von Show deines neu erzeugten Fensters doch am Ende, wenn alle Komponenten erzeugt wurden. Z.B. so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm;
i: integer;
begin
frm := TForm.Create(self);
for i := 1 to 50 do
begin
with TEdit.Create(self) do
begin
Parent := frm;
Top := i * 2;
Left := i * 2;
end;
end;
frm.Show;
end;
hoffe das ist das was du meinst
rantanplan