TForm sauber schleißen

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