Neues Fenster

[Skiron]

Delphi-Quellcode:

const
  AnzFenster = 10;
var
  Fenster: array of TForm1; //liste min Fenstern
  i: integer;
begin
  setLength(Fenster, AnzFenster); //Wieviele fenster will ich?
  for i := 0 to high(Fenster) do begin
    Application.CreateForm(TForm1, Fenster[i]); //Fenster erstellen
    Fenster[i].Show; //und anzeigen
  end;
//Fenster wieder schließen
  for i := 0 to high(Fenster) do
    Fenster[i].Free; //und am end auch wieder abbauen
end;