Unendliche Formen erzeugen (wenn nötig)

[rayman]

Ja

Ich hab eigentlich nur eine Schleife drum gemacht, damit alle Formuare erzeugt werden. Du kannst es ja so machen, wenn bei jedem Buttonclick nur ein Fenster geöffnet werden soll:

Delphi-Quellcode:

var Form1: TForm1;
    myForms: array of TForm; // das Feld wird global deklariert ...

procedure TForm1.FormCreate(Sender: TObject);
var n:integer;
begin
for n:=0 to 10 do begin
  myForm[n]:=TForm.Create;   // Bei Create mit Form gefüllt ...
  .....
  ...
  ..
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
                             // und bei jedem Click kommt ein neues   
                             // Fenster dazu
begin
n:=0;
while n>=0 do if not myForm[n].Visible then begin 
  myForm[n].Show;
  myForm[n].Top:=...
  ... 
  n:=-1;
  end;
end;