Was treibt ihr denn da ?
So erzeuge ich 1000 Forms:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
frm : TForm;
begin
for i := 1 to 1000 do begin
frm := TForm.Create(Self);
frm.Name := 'Form' + IntToStr(i);
end;
end;
Was hat da ein Array, SetLength usw. zu suchen ?