MDI bei Firemonkey?

[TiGü]

Mal auf die Schnelle in fünf Minuten zusammengebastelt:

[sko1]

Zitat von TiGü:

Mal auf die Schnelle in fünf Minuten zusammengebastelt:

Nach Entpacken hagelt es Fehlermeldungen, pas Dateien nicht gefunden!

Ciao
Stefan

Nachtrag:
Projekt umgestellt, läuft, aber:

Ich möchte die Unterformulare jedes mal Createn (unter verfügbare Formulare im Projekt), das funktioniert, jedoch wenn ich im Unterformular einen Button mit Self.Free einbaue, verschwindet das Unterformular aber das Hauptfenster und das Programm lässt sich nicht mehr mit "X" schließen!

Edit2:
Auf der Unterform habe ich einen Button der diese Free'd.

Danach sind die Minimieren/Maximieren/Schließen Buttons von FormMain inaktiv, warum?
Ein Button auf FormMain mit Close beendet das Programm ohne Probleme.

Ciao
Stefan

[Harry Stahl]

Wenn der Button Teil des Unterformulars ist und der Button-Click das Formular zerstört, dann wird er auch alle darin liegenden Objekte zerstören, also auch den Button.

Das System hat dann keinen Rückspringpunkt mehr für das Button-Event und hängt dann (teilweise).

Du musst das Schließen innerhalb des Unterformulars entweder mit Botschaften regeln oder von außerhalb des zu zerstörenden Formulars antriggern.

[sko1]

Danke für den Hinweis!

Ich dachte das das keine Probleme bereiten könnte, denn bisher (mit den getrennten Formularen) zerstöre ich ja auch innerhalb des Formulars durch einen auf dem Formular liegenden Button.

Also ala

FreeAndNil(UnterForm)
Hauptform.Activate

Dann muss ich mir mal was ausdenken, wie ich dem aufrufenden Form mitteilen kann dass es sein Unterformular aus den Layout entfernen und zerstören kann.

Ciao
Stefan

[Olli73]

Du könntest auch folgendes probieren:

- anstatt .Free .Release aufrufen

oder

- .Close aufrufen und im OnClose des Formulars Action := caFree setzen