TForm sauber schleißen

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

[Furtbichler]

Ja ja. Aber das Problem sind Instanzen nicht modaler Dialoge.

Delphi-Quellcode:

...
  MyDialog := TNonModalForm.Create(Self);
  MyDialog.Show;
...

// Wird der Dialog nun geschlossen (mit caFree), zeigt MyDialog ins Nirvana. 
// Dieses Probleme wurde nun gelöst, aber nicht von Dir.