Hi,
MDI-Fenster sind eigendlich normale Windowsfenster innerhalb eines Hauptfensters (mit Windows-Fensterrahmen, Sytemmenü, verschiebbar, etc).
Hab' mir's gerade nochmal auf der Zielanwendung nochmal angeschaut, was für Messages am Ende kommen:
- WM_DESTROY
- WM_NCDESTROY
Meine Idee war, bei WM_NCDESTROY (da müßte alles gelaufen sein) die eigene Instanz zu beenden:
Code:
procedure TMeineForm.MeinWndProc(var Message: TMessage);
begin
WndProc(Message); // Message an WndProc weitergeben
if (Windows.GetParent(FParentWindow) = 0) // = Kein ParentWindow
and (Message.Msg = WM_NCDESTROY) then // = Letzte Message
Free; // ???
end;
Aber...
... was ist mit Message.Result, wenn ich hier die eigene Instanz schon freigebe. Braucht man das noch?
... aus der Delphi-Hilfe zu Free:
Warnung: Sie dürfen eine Komponente nie in einer ihrer eigenen Ereignisbehandlungsroutinen oder
in einer Ereignisbehandlungsroutine eines untergeordneten Objekts freigeben. Geben Sie
beispielsweise auf keinen Fall eine Schaltfläche oder ihr übergeordnetes Formular in der
OnClick-Ereignisbehandlungsroutine der Schaltfläche frei.
Gruß Siegl