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 Close schließt in der Regel lediglich das Form. Soll es gleichzeitig freigegeben werden, dann kann man im OnClose -Event die TCloseAction auf 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?
Form1.Caption := 'Form1';

[Eppos]

korrekt, also es steht dann

Code:

  Form1.Caption := 'Form1_1';

drin...

[Uwe Raabe]

Der Code, der das Form1.Close aufruft und der das neue TForm1.Create macht, werden die direkt hintereinander ausgeführt? In dem Fall wird durch das Close selbst bei caFree das Form nicht sofort freigegeben. Vielmehr wird über 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 TForm1.Create die alte Instanz noch und das führt zur Vergabe des neuen Namens.

Abhilfe: das caFree im FormClose-Event entfernen, ebenso wie das nil setzen. Dann noch das Form1.Close in ein Form1.Free abändern.