MDI Fenster mit caFree - prüfen ob Fenster existiert

[moelski]

Hmm, aber wie tun?

Das klappt nicht:

Delphi-Quellcode:

procedure TfrmMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  frmMDIChild.Hide;
end;

Und das geht auch nicht:

Delphi-Quellcode:

procedure TfrmMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmMDIChild.Hide;
end;

Führt beides zu Zugriffsverletzungen ...