klick auf button -> mehrere fenster öffnen sich - WIE ?

[choose]

Zitat von Minz:

wird das nicht problematisch wenn du du versuchst

aForm immer wieder neu zu erstellen, obwohls schon existiert?

Hallo Minz,

Abgesehen von der Tatsache, dass Du die direkten Referenzen verlierst (notfalls über Screen.Forms[] erreichbar, siehe OH), um sie ggf wieder freizugeben (was aber auch in OnClose mit caFree realisiert werden könnte), ist es absolut unproblematisch, weil lediglich die bisherige Referenz durch die jeweils vom Konstruktor-Aufruf zurückgegebene Referenz überschrieben wird.
Von diesem Vorgang "bekommnt das Fenster nichts mit".

Es wäre auch denkbar, die Referenz gar nicht zu speichern:

Delphi-Quellcode:

for i := 0 to StrToInt(Edit1.Text) - 1 do
  TForm.Create(nil).Show;

bzw

Delphi-Quellcode:

for i := 0 to StrToInt(Edit1.Text) - 1 do
  with TForm.Create(nil) do
  begin  
    Caption:= IntToStr(i);
    Left:= i*10;
    Show;
  end;