In fremdes Fenster eingefügte Form beenden

[Siegl]

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