Nochmal: Ermiteln ob Objekt freigegeben wurde

[MaBuSE]

Zitat von shmia:

Du darfst die Variable Form2 nicht verwenden!!!
Empfehlung: globale Variable Form2 löschen.

Warum darf ich die nicht verwenden?
Aber keine Angst, sie wird im Projekt nicht verwendet.

Ich habe aber ein anderes Problem entdeckt.

Einige Forms werden mehrfach (in versch. Variablen) erzeugt.

Bsp:

Delphi-Quellcode:

...
// in unit1.pas
procedure TForm1.methode;
begin
  if not assigned(privateForm1Var) then
  begin
    privateForm1Var := TForm2.Create(self);
  end;
  privateForm1Var.show
end;
// in unit3.pas
procedure TForm3.andereMethode;
begin
  if not assigned(privateForm3Var) then
  begin
    privateForm3Var := TForm2.Create(self);
  end;
  privateForm3Var.show
end;
...

In dem Form2 habe ich keinen Zugriff auf privateForm1Var.
1. ist die Unit1 und Unit3 nicht in der uses des Form1 und
2. ist die Variable privat (lokal)
Außerdem weis ich ja gar nicht in welcher Variable das TForm2 enthalten ist.
Damit es nicht langweilig wird, sind manchmal auch mehrere Instanzen gleichzeitig aktiv.
(also privateForm1Var <> privateForm3Var und beide <> nil)
Ich kann also folgenden SourceCode nicht ausführen:

Delphi-Quellcode:

...
// Vorschlag von [user]tomsel[/user]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  // hier werden noch viele weitere Dinge freigegeben 
  Action := caFree; 
  privateForm1Var := nil; 
end;
...

Folgendes funktioniert auch nicht, da dann zwar self auf nil gesetzt wird, aber privateForm1Var immer noch auf den "alten" Speicherbereich zeigt.

Delphi-Quellcode:

...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  // hier werden noch viele weitere Dinge freigegeben 
  Action := caFree; 
  self := nil;  
end;
...

Der Lösungsansatz von shmia gefällt mir prinzipiell gut, aber es kann nur ein Form pro Typ erzeugt werden. Das Form muss aber auch mehrmals "sichtbar" sein.

Die Idee von Bernhard Geyer das Singleton-Pattern anwenden, fällt leider auch weg, da es ja mehrfach erzeugt wird

Der Lösungsansatz von dataspider scheint wohl der Beste zu sein.
Das Problem dort ist allerdings, dass die lokale Variable im Form definiert sein muss und das bei jedem Objekt das eine Instanz erzeugt die Notification abgeleitet werden muss.

Ich werde mit wohl eine FormFactory bauen müssen, die mir die Forms erzeugt und intern in einer Liste abspeichert. Diese FormFactory muß dann auch das Notification implementieren und dann die entsprechenden Speicherbereiche auf Nil setzen.

Mal schauen ob das funktioniert.

Danke an alle für die Anregungen