MDI Fenster schließt nicht richtig

[Eppos]

Hallo zusammen,

ich erstelle mehrere MDI Fenster innerhalb meiner Anwendung.

Code:

  Form1 := TForm1.Create(self)

Soweit so gut, es gibt nun MDI Forms, die durch Klicken von Buttons, die Form1 aufrufen sollen, jedoch zuvor geschlossen werden.
Bevor die Form aufgerufen wird, prüfe ich auf...

Code:

  If Form1 <> nil then begin
    Form1.Close;
    Form1 := nil;
  end;

und anschließend soll das Fenster so angezeigt werden...

Code:

  Form1 := TForm1.Create(self);
  Form1.FormStyle := fsNormal;
  Form1.Visible := False;
  Form1.ShowModal;

Funktioniert auch tadellos, jedoch heißt die Form "Form1_1"...
Ich vermute das das erste Fenster nicht richtig geschlossen wird.

Hat jemand eine Idee wie ich das "_1" unterbinden kann?

Gruß
Eppos

[Uwe Raabe]

Ein

Delphi-Quellcode:

Close

schließt in der Regel lediglich das Form. Soll es gleichzeitig freigegeben werden, dann kann man im

Delphi-Quellcode:

OnClose

-Event die

Delphi-Quellcode:

TCloseAction

auf

Delphi-Quellcode:

caFree

setzen.

[Eppos]

hm...

So steht es bereits drin

Code:

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

Noch ne Idee?

[Jasocul]

Meinst du das?

Delphi-Quellcode:

Form1.Caption := 'Form1';

[Eppos]

korrekt, also es steht dann

Code:

  Form1.Caption := 'Form1_1';

drin...

[Uwe Raabe]

Der Code, der das

Delphi-Quellcode:

Form1.Close

aufruft und der das neue

Delphi-Quellcode:

TForm1.Create

macht, werden die direkt hintereinander ausgeführt? In dem Fall wird durch das

Delphi-Quellcode:

Close

selbst bei

Delphi-Quellcode:

caFree

das Form nicht sofort freigegeben. Vielmehr wird über

Delphi-Quellcode:

Release

eine Message in die Queue gestellt, die dann bei nächster Gelegenheit das Form freigibt.

Wenn das obige also der Fall ist, dann existiert während des erneuten

Delphi-Quellcode:

TForm1.Create

die alte Instanz noch und das führt zur Vergabe des neuen Namens.

Abhilfe: das

Delphi-Quellcode:

caFree

im FormClose-Event entfernen, ebenso wie das

Delphi-Quellcode:

nil

setzen. Dann noch das

Delphi-Quellcode:

Form1.Close

in ein

Delphi-Quellcode:

Form1.Free

abändern.

[Jasocul]

Dann ergänze deinen Code doch:

Delphi-Quellcode:

  Form1 := TForm1.Create(self);
   Form1.FormStyle := fsNormal;
   Form1.Visible := False;
   Form1.Caption := 'Form1'; // Diese Zeile einbauen
   Form1.ShowModal;

[Eppos]

@Uwe Raabe
Ich habe jetzt nur statt

Code:

Form1.Close

ein

Code:

Form1.Free

gesetzt.
Dann funktioniert es.

@Jasocul
Das erscheint mir eher das Problem vielleicht zu beheben, aber die Ursache bleibt vorhanden.
Trotzdem Danke, jedoch zu unsauber.

[Aviator]

Zitat:

Zitat von Eppos (Beitrag 1351453)

@Jasocul
Das erscheint mir eher das Problem vielleicht zu beheben, aber die Ursache bleibt vorhanden.
Trotzdem Danke, jedoch zu unsauber.

Ohne Jasocul jetzt in den Rücken fallen zu wollen, aber das ist die richtige Einstellung. Immer schön alles freigeben was nicht mehr benötigt wird. Dann gibt es später auch keine Probleme.

[Jasocul]

Mir fällt keiner in den Rücken :wink:

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.