Form dynamisch erzeugen

[whiteF]

Also, da ich ja die Form mehrfach eingeblendet werden sollte bei meinem programm, dürfte ich ja für die form keinen festen Namen vergeben, sonst könnte ja in der 2.ten Instanz ja nicht mehr die Form created werden da ja der Name bereits existiert (vermute ich jetzt mal ganz stark).

Es funktionieren beide Varianten:
#1

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FormMessengerNW_Instanz : TFormMessengerNW;
begin
  try
    FormMessengerNW_Instanz := TFormMessengerNW.Create(Application.MainForm);
  finally
    FormMessengerNW_Instanz.Show;
  end;
end;

#2

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFormMessengerNW, FormMessengerNW);
  finally
    FormMessengerNW.Show;
  end;
end;

Um die dynamisch erzeugte Form zu schliessen kommt es zum Teil drauf an wie diese erstellt worden ist.
Das klappt immer:

Delphi-Quellcode:

procedure TFormMessengerNW.Button1Click(Sender: TObject);
begin
  Self.Close;
end;

Das klappt nur in Verbindung mit der #2-Variante:

Delphi-Quellcode:

procedure TFormMessengerNW.Button1Click(Sender: TObject);
begin
  FormMessengerNW.Close; //Wenn mehrere Instanzen erstellt werden, gibt es hiermit jedoch Probleme
//das funktioniert aber auch: Self.Close; //Wenn mehrere Instanzen erstellt werden, gibt es hiermit KEINE Probleme
end;

Variante #2 kann hiermit gefunden (gelistet) werden kann //Variante #1 nicht... wieso nicht? :

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var
  i, ii: Integer;
begin
  Memo1.Clear;
  ii := 0;
  for i := 0 to Application.ComponentCount - 1 do
  begin
    if Application.Components[i] is TForm then
    begin
      Memo1.Lines.Add(Application.Components[i].Name);
      ii := ii + 1;
    end;
  end;
  Edit1.Text := IntToStr(ii);
end;

Das hier funktioniert für Variante #1 & #2

Delphi-Quellcode:

procedure TForm1.Button22Click(Sender: TObject);
var
  i, ii: Integer;
begin
  Memo1.Clear;
  ii := 0;
  for i := 0 to Screen.CustomFormCount - 1 do
  begin
    Memo1.Lines.Add(Screen.Forms[i].Name);
    ii := ii + 1;
  end;
  Edit1.Text := IntToStr(ii);
end;

Ein kleines praktisches Beispiel Projekt liegt anbei.