Formular mit ESC schliessen

[HPB]

Guten Tag Delphianer,
ich erzeuge im OnCreate-Ereignis eines Formulars verschiedene Objekte.

Delphi-Quellcode:

  Adresse := TOAdressen.Create;
  KrankenBesuch := TOKrankenBesuche.create;
  DoppelMitglied := TOLODoppelMitglied.create;
  BrAnekdoten := TOAnekdoten.Create;
  SchluesselVerw := TOLogeSchluesselVerwaltung.create;
  BrSonstVerein := TOBrSonstigeVereine.Create;

Diese gebe ich im OnDestroy-Ereignis des Formulars wieder frei.

Delphi-Quellcode:

  Adresse.Free;
  BrAnekdoten.Free;
  KrankenBesuch.Free;
  DoppelMitglied.Free;
  SchluesselVerw.Free;
  BrSonstVerein.Free;

Ich möchte nun mit der Taste-ESC das Formular schliessen:
Wenn ich im FormKeyDown-Ereignis den Code

Delphi-Quellcode:

 if Key = VK_ESCAPE then
 Close;

hinzufüge wird das Formular auch geschlossen und die Anwendung kehrt zum
Hauptfenster zurück.
Werden damit aber auch die Objekte freigegeben?
Welches ist die beste Vorgehensweise für so etwas?
Vielen Dank für Eure Hilfe im Voraus.

[Aviator]

Das sollte der Fall sein. Setz doch einfach mal einen Breakpoint in beide Events und schau, ob der Debugger anhält. Aber warum sollte er das nicht?

[Uwe Raabe]

Zitat von Aviator:

Das sollte der Fall sein.

Das ist nur dann der Fall, wenn die TCloseAction im OnClose-Event des Forms auf caFree gesetzt wird. Ohne dies gilt die Aussage nur für das MainForm, das beim Close die ganze Applikation beendet. Andernfalls erfolgt nur ein Hide.

[Aviator]

Zitat von Uwe Raabe:

Zitat von Aviator:

Das sollte der Fall sein.

Das ist nur dann der Fall, wenn die TCloseAction im OnClose-Event des Forms auf caFree gesetzt wird. Ohne dies gilt die Aussage nur für das MainForm, das beim Close die ganze Applikation beendet. Andernfalls erfolgt nur ein Hide.

Da hast du Recht. Gut. Ich habe das "eines Formulares" etwas anders gedeutet. Aber nichts desto trotz sollten es zumindest keine Memory Leaks geben, da die Form ja dann auch nur nochmal angezeigt und nicht ein weiteres Mal erstellt wird und somit das OnCreate und das OnDestroy Event nur jeweils einmal ausgelöst wird.

[Redeemer]

Dafür gibt's TCustomForm.Release.

[himitsu]

Release verhindert aber auch ein OnCloseQuery.

OnCloseQuery gibt es nur beim Close
und Release ist einfach nur ein verzögertes Free.