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.

[Redeemer]

Ja, ich hatte gedacht, gelesen zu haben, er überschreibt Destroy, aber er setzt OnDestroy.

Ich würde Destroy überschreiben und Release benutzen.

Oder man nimmt halt ein modales Fenster. Das kann man auch schließen, indem man beim Abbrechen-Button Cancel := True sitzt.

[HPB]

Um das Thema abzuschließen.
Ich habe in allen Formularen im OnClose-Event
Action := caFree; gesetzt. Wenn ich die Aussage von Uwe Rabe richtig verstehe,
wird dann auch das OnDestroy-Event ausgeführt.
Vielen Dank an alle für die Hilfe.

[Aviator]

Du solltest wirklich mal einen Breakpoint in das/die Event(s) setzen und dann einfach mal das Programm mit dem Debugger starten. Dann hast du auch Gewissheit, dass das was du erreichen willst auch funktioniert. Zusätzlich solltest du evtl. ReportMemoryLeaksOnShutdown := True; in deine DPR einfügen um zu sehen, ob du nicht noch andere Memory Leaks hast.

[himitsu]

OnDestroy wird ausgeführt, wenn die Form freigegeben wird.

Und caFree sagt, dass beim Schließen (Close) die Form freigegeben werden soll.