dynamisch erzeugte Forms richtig freigeben

[Hansa]

Wenn man von der Überschrift ausgeht :

Zitat:

dynamisch erzeugte Forms richtig freigeben

dann bin ich etwas erstaunt, dass bisher kein einziges mal das Wort caFree vorkam.

Wenn das OnClose so aussieht :

Delphi-Quellcode:

procedure Tfrm.FormClose(Sender: TObject; var Action: TCloseAction);
var FensterIni,
    SonstIni : TIniFile;
begin
  inherited;
// wenn nötig hier noch andere Aktionen ausführen.
  Action := caFree;
end;

dann ist die Form freigegeben und fertig. Egal, ob sie mit Alt-F4, Schliess-x usw. geschlossen wird.