TForm sauber schleißen

[ATS3788]

Frohes neues Jahr meine Delphi Buddies

Die ist ein Problem was mich schon einige Jahre verfolgt
und ich habe nie eine saubere Lösung gefunden.

Ein neues Form wird erstellt, OK

Delphi-Quellcode:

if FormIndex = nil then begin
FormIndex := TFormIndex.Create(self);
FormIndex.Show;
FormIndex.hMainWin := self.Handle;
FormIndex.Visible := true;

Bei ShowModal kein Problem.
Nur es soll kein Modales Fenster sein.

Das Fenster soll bei "Close" den Speicher freigeben und den Zeiger
auf Nil setzen. Ich möchte das Fenster von
FormIndex schließen.

Delphi-Quellcode:

procedure TFormIndex.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if self  <> nil then
FreeAndNil(self);
............

Wenn ich das bei Destroy mache, geht gar nicht, bei FormClose
gibt es manchmal Schutzverletzungen.

Bei CanClose habe ich es noch nicht ausprobiert.

Meine Frage, wie ist es richtig zu bewerkstelligen und
wo kann man nachlesen wie ein Fenster geschlossen wird.

[DeddyH]

Wenn Du einen Owner angibst, sollte es eigentlich schon damit getan sein, im OnClose Action auf caFree zu setzen. IIRC benachrichtigen TComponents ihren Owner, wenn sie freigegeben werden. Sollte ich mich irren, kann man das aber auch nachbauen.

[Sir Rufo]

Wozu es gut sein soll weiß ich zwar nicht, aber so geht es:

Delphi-Quellcode:

type
  TFormIndex = class( TForm )
  ...
  public
    destructor Destroy; override;
  end;

...

destructor TFormIndex.Destroy;
begin
  if FormIndex = Self then
    FormIndex := nil;
  inherited;
end;

BTW: Wir erinnern uns, globale Variablen sind doof und sollten idR vermieden werden, auch wenn Delphi das mit seinem RAD Ansatz vormacht und damit einen quasi Standard vorgaukeln möchte.

[Furtbichler]

Zitat von Sir Rufo:

Wir erinnern uns, globale Variablen sind doof und sollten idR vermieden werden, auch wenn Delphi das mit seinem RAD Ansatz vormacht und damit einen quasi Standard vorgaukeln möchte.

Application = Doof. Und Screen auch.

Bei Delphi sieht man das eben nicht so eng, es ist ja schließlich auch keine richtige OOP-Programmiersprache.

[Sir Rufo]

Zitat von Furtbichler:

Zitat von Sir Rufo:

Wir erinnern uns, globale Variablen sind doof und sollten idR vermieden werden, auch wenn Delphi das mit seinem RAD Ansatz vormacht und damit einen quasi Standard vorgaukeln möchte.

Application = Doof. Und Screen auch.

Die Implementierung ist tatsächlich doof und könnte auch besser gemacht werden (siehe Printer ).

[ATS3788]

Danke
für die Antworten.
Sir Rufo es geht nur ums
verstehen und Deine Methode ist
echt interessant.

Martin Michael

[Furtbichler]

Zitat von Sir Rufo:

Die Implementierung ist tatsächlich doof und könnte auch besser gemacht werden (siehe Printer ).

Dann hätten wir doofe Singletons. Und globale Variablen sind ja nichts anderes als Singletons ohne Schutzmechanismen. Ach egal.

[ATS3788]

Hallo
Sir Rufo wahrscheinlich habe ich nicht richtig erklärt
was ich möchte. Ich habe Ein Main Form und von diesem
steure ich 2 andere Sub Fenster. Habe dies nun damit gelöst
indem ich vom Sub Index Fenster bei FormClose mit sendMessage dem Main Fenster
mitteile bitte FreeAndNil und das funktioniert wunderbar.

Danke für die Antworten

Martin Michael

[Furtbichler]

Eine schöne und einfache Lösung. Zeig doch mal den Code, dann haben alle etwas davon.

[Gerd01]

Wenn Du eine Form modal aufrufst ist dieser Konstrukt das Mittel der Wahl:

Code:

With TMyForm.Create ( Application oder NIL, etc ) do
Try
  ...
  ShowModal;
  ...
Finally
  Free;
End;

Wenn Du eine Form nicht modal aufrufst ( z.B. mit Show )
dann schreibe in die Formclose der jeweiligen Form:

Code:

procedure TMyForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

und schließe alle offenen Forms bei Programmende oder wenn gewünscht.