Formular geschlossen, aber assigned ist true

[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;