MDI Fenster schließt nicht richtig

[Jasocul]

Mir fällt keiner in den Rücken

Das ist nicht unsauber.
Beim erfolgreichem Form1.Close mit Action = caFree, wird das Form1.Free nur nicht sofort ausgeführt (wie Uwe Raabe bereits angedeutet hat). Die Queue braucht da halt ein bisschen Zeit.

Im Grunde läuft das intern doch ganz anders ab:
Form1 ist nur irgendeine Instanz-Variable.
Die alte Form, die mit Close geschlossen wurde existiert noch in der Liste der Child-Forms der MDI-Hauptform.
Durch das Create zeigt die bisherige Instanz-Variable auf die neue Form. Die MDI-App prüft aber in der Liste, ob noch eine Form mit der automatischen Vergabe des Namens existiert. Da die Queue noch nicht abgearbeitet ist, gibt es da also noch eine (nämlich die alte Form). Auch wenn diese eigentlich geschlossen wurde/wird. Also wird eine neue Bezeichnung verwendet, damit das nicht durcheinander kommt.

Die Caption einer Form zur Laufzeit zu verändern, ist sicher nicht unsauber.

Übrigens könnte man das auch komplett ohne Instanz-Variable machen:

Delphi-Quellcode:

  with TForm1.Create(self) do
  begin
    FormStyle := fsNormal;
    Visible := False;
    Caption := 'Form1';
    ShowModal; 
  end;

Aber ich bin kein großer Freund der with-Anweisung. Ich nehme auch immer lokale Instanz-Variablen. Man muss sich nur klar machen, dass die Instanz auch ohne die Variable existiert. Ein weiteres Create mit der selben Variablen, lässt diese nur auf die neue Instanz zeigen. Die vorherige Instanz ist trotzdem vorhanden.

[Aviator]

Zitat von Jasocul:

Aber ich bin kein großer Freund der with-Anweisung. Ich nehme auch immer lokale Instanz-Variablen. Man muss sich nur klar machen, dass die Instanz auch ohne die Variable existiert. Ein weiteres Create mit der selben Variablen, lässt diese nur auf die neue Instanz zeigen. Die vorherige Instanz ist trotzdem vorhanden.

Ich auch nicht mehr. Hauptsächlich aus Gründen des Debuggings.

Und wenn man sich die Instanz nicht irgendwo speichert, dann hat man u.U. ein schönes Speicherleck.
Habe allerdings keine Ahnung, wie das MDI technisch vom System verwaltet wird. Aber bei anderen Objekte wäre das der Fall.

[himitsu]

MDI kümmert sich nur um die visuelle Darstellung (Parent usw.)
die Freigabe wird wie bei jeder anderen TForm behandelt, bzw. wie bei TComponent allgemein.

Zitat von Jasocul:

Beim erfolgreichem Form1.Close mit Action = caFree, wird das Form1.Free nur nicht sofort ausgeführt (wie Uwe Raabe bereits angedeutet hat). Die Queue braucht da halt ein bisschen Zeit.

Delphi-Quellcode:

MyForm.Close;
Application.ProcessMessages
MyForm := TMyForm.Create(Self);
...

OK, das geht aber dann doch eher Free statt Close oder halt mit 2 Forms leben.

Delphi-Quellcode:

MyForm.Free;
Application.ProcessMessages
MyForm := TMyForm.Create(Self);
...

Free hat aber ein "Problem", denn z.B. ein eventuell vorhandenes Event an OnCloseQuery wird nicht ausgeführt. (Free ist sofortiges Schließen ohne Rückfrage, samt Freigabe)

Aber warum eine Instanz des selben Form freigeben und eine neue Instanz erstellen, anstatt die bestehende Instanz wiederzuverwenden?

[Jasocul]

Zitat von Aviator:

Und wenn man sich die Instanz nicht irgendwo speichert, dann hat man u.U. ein schönes Speicherleck.

Ist in diesem Fall kein Problem, da beim Schließen der Form ja dafür gesorgt wird, dass der Speicher freigegeben wird.

[Eppos]

Mit unsauber meine ich...
Wenn Programmierer X den Namen der Form ändern muss, weis er nicht, dass es hier im Code oder an andererer Stelle eine Sonderlocke gibt.
In meinen Augen sehr gefährlich.

[Jasocul]

@Himitsu:
Das Free wird in diesem Fall im OnClose aufgerufen. Das CloseQuery muss dann schon abgearbeitet sein. Passt also in diesem Fall noch.

@Eppos:
Welche Sonderlocke ist denn gefährlicher:
- Ein Free in einem Close-Event, welches eigentlich sowieso automatisch durchgeführt wird?
- Oder das Setzen einer Caption, was ein rein optischer Effekt ist?

[Eppos]

@Jasocul
Als Sonderlocke meine ich das setzen der Caption, weil wir darüber weitere Funktionalitäten abbilden wie z.B.
-Formsettings
-Usersettings
-Sprachdaten
etc...