Einzelnen Beitrag anzeigen

moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#1

MDI Fenster mit caFree - prüfen ob Fenster existiert

  Alt 17. Dez 2008, 19:54
Moins !

Ich habe hier ne MDI Anwendung mit einem MDI Child. Das MDI Child hat folgende OnClose Methode:
Delphi-Quellcode:
procedure TfrmMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;
Zudem speichere ich mir zu jedem Fenster einige Infos. u.a.:
     MDIChild : TForm; Ich habe also ein Child Fenster und das merke ich mir nach dem erstellen des Childs:
Delphi-Quellcode:
  Child := TfrmMDIChild.Create(Application);
  Child.Caption := childName;
  Child.BringToFront;
  MDIChild := Child;
Wenn ich nun das Child Fenster über das X schliesse, dann wird das Fenster ja geschlossen und der Speicher freigegeben. MDIChild ist aber keineswegs NIL.

Dazu hab ich nun mal zwei Frägn ...

1) Habe ich nun mit MDIChild := Child eine Kopie erzeugt oder verweise ich mittels MDIChild auf Child?
2) Wie kriege ich über MDIChild raus ob das Fenster noch existiert? Oder anders ausgedrückt will ich wissen ob der User das Fenster mittels dem X geschlossen hat (ohne direkt Child abzufragen). Mit MDIChild <> NIL geht es nicht.
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat