Formular geschlossen, aber assigned ist true

[josef-b]

ich habe eine Anwendung mit relativ vielen Formularen.

Allerdings möchte ich nicht alle forms automatisch erstellen.

Deshalb mache ich das z.b. mit

Delphi-Quellcode:

form2 := TFForm2.create(self);
form2.show;

Beim schliessen:

form2.close; und im OnClose ereignis:

action := cafree; Wenn ich aber danach aufrufe

Delphi-Quellcode:

if assigned(form2) then
  begin
  ......
  end;

kommt true

Das heisst ja dann, dass das Formular immer noch existiert?

Wie kann ich es komplett freigeben, so dass ich es danach wieder createn kann?

Es geht darum, dass ich ein Formular in einem Timer öffnen möchte, aber nur
wenn es nicht schon gerade auf dem Bildschirm (manuell geöffnet wurde) (ein Reminder);

Irgendwie ist mir das nach Jahren immer noch nicht so richtig klar, wie das mit den Formularen funktioniert

[Aviator]

Wenn ein Formular freigegeben wird, dann bedeutet das nicht automatisch, dass alle Zeiger auf die nicht mehr existierende Instanz der Form automatisch auch auf nil gesetzt werden. Dafür müsstest du dann selbst sorgen. Das kannst du prinzipiell auch mit einem anderen einfachen Objekt testen. Erstellte eine Instanz und speichere sie in einer Variable. Gib die Instanz frei und prüfe auf Assigned() . Du wirst feststellen, dass Assigned() immer noch true zurückgibt obwohl beim Zugriff auf die Instanz eine AccessViolation auftreten wird.

[Redeemer]

Wenn du Forms manuell freigibst (und das nicht automatisch machen lässt, also ohne caFree) und nur eine Variable pro Form hast (z.B. die globalen Variablen à la Form2, die Delphi automatisch für dich deklariert), kannst du mit FreeAndNil sie auch wieder auf nil zurücksetzen. Das eignet sich am ehesten für modale Forms. Nicht modale Forms könnten ihre globale Variable, sofern dies die einzige ihres Typs ist, im Destroy- oder Close-Ereignis auf nil setzen.

Ein Formular kannst du jederzeit erstellen. Du kannst sogar dann dieselbe Variable erneut erstellen, während sie auf ein tatsächlich vorhandenes Objekt zeigt. Da hindert dich keiner dran, nur führt das bei Objekten, die nicht gerade ein intergriertes Speichermanagement à la caFree oder Release() haben, i.d.R. zu Speicherlecks.

[josef-b]

Also so scheint es zu funktionieren... ?

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2 := nil;
action := cafree;
end;

[himitsu]

Jupp, stell dir einen Zettel vor (deine Variable), dort steht die Adresse (Zeiger) deines Fensters drauf.
Reißt man das Haus/Fenster ab, dann bekommt der Zettel es nicht mit.
(außer bei Interfaces mit Weak-Referenz)


OnClose wird nur bei .Close aufgerufen, oder wenn der User das Fenser schließt (X oder über die Menüs).

Alternativ oder zusätzlich würde ich auch OnDestroy oder Destroy (Bevor oder After dem Inherited) empfehlen,
damit es auch beim .Free mit auf NIL gesetzt wird.

[dummzeuch]

Zitat von josef-b:

Also so scheint es zu funktionieren... ?

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2 := nil;
action := cafree;
end;

Solange Form2 die einzige Referenz auf das Formular ist, ja. Aber es kann ja beliebig viele geben und außerdem kann es ja auch mehrere Instanzen von TForm2 geben.

[himitsu]

Delphi-Quellcode:

if Form2 = Self then
  Form2 := nil;