Formulare auf PageControl werden nicht dargestellt

[AndyDF]

Hallo,

habe ein Problem, dass mich schon relativ lange und immer wieder beschäftigt.

Ich habe öfter mal eine PageControl im Einsatz bei der ich auf jeder Seite ein anderes eigenes Formular anzeige.
Diese Formulare werden dynamisch zur Laufzeit erzeugt.
Wenn das dyn. Formular selbst auch eine PageControl enthält welche wiederum ein Formular anzeigt, kommt es beim ersten Start zu einem Anzeigeproblem.

Dabei wird das Formular erst angezeigt, wenn ich einmal auf einen anderen TabSheet wechsle und zurück.

Im Anhang habe ich ein Beispiel Projekt angehängt. (nichts besonderes - habe es nur schnell zusammen geklickt).
Beim Start sollte die "Seite 1" korrekt aussehen und TabSheet 1 sollte befüllt sein.
Beim Wechsel auf "Seite 2" sollte die PageControl auf "Seite 2" leer sein. Wird erst dargestellt nach Wechsel auf TabSheet2 und zurück auf TabSheet1.

Kann ich mit Delphi XE2 und Delphi XE7 nachvollziehen.

Habe es bisher immer mit Workarounds gelöst wie: Den Show der SubForms Timer gesteuert ausführen. Aber das ist auch nicht schön.
Vielleicht hat hierzu einer eine Idee.

Ich möchte allerdings keine Frames sondern Forms verwenden. In unserer Anwendung müssen die Sub-Forms auch eigenständig laufen können.
Normalerweise verwende ich auch die PageControl von DevExpress. Das Problem habe ich auch da.

Viele Grüße,
Andreas

[uligerhardt]

Zitat von AndyDF:

Ich möchte allerdings keine Frames sondern Forms verwenden. In unserer Anwendung müssen die Sub-Forms auch eigenständig laufen können.

Na, das ist doch auch mit Frames kein Problem. Da schreibst du dir eine kleine Routine ShowFrameModal oder so, die eine leere TForm erzeugt, auf die du den Frame pappst.

[AndyDF]

Zitat von uligerhardt:

Zitat von AndyDF:

Ich möchte allerdings keine Frames sondern Forms verwenden. In unserer Anwendung müssen die Sub-Forms auch eigenständig laufen können.

Na, das ist doch auch mit Frames kein Problem. Da schreibst du dir eine kleine Routine ShowFrameModal oder so, die eine leere TForm erzeugt, auf die du den Frame pappst.

Ja das ist schon richtig. Aber wir nutzen das dyn. Verwenden von Formulare sehr intensiv. Daher würde wir gerne momentan auch weiterhin Formulare und keine Frames verwenden.
Mich würde interessieren ob es eine Lösung mit den Formularen gibt oder ob grundsätzlich an der Vorgehensweise etwas nicht stimmt. Ich weiß auch gar nicht, ob das Problem nicht auch mit Frames besteht.

[Sir Rufo]

Ich werfe jetzt mal TControl.ManualDock in den Raum.

Um eine Form zu einem PageControl hinzuzufügen genügt es:

Delphi-Quellcode:

procedure Foo( APageControl : TPageControl; AForm : TForm );
begin
  AForm.ManualDock( APageControl, nil, alClient );
  AForm.Visible := True;
end;

Dabei wird TForm.Caption automatisch als TTabSheet.Caption verwendet.

Ach ja, und die TabSheets brauche ich auch nicht erzeugen, denn diese werden durch das Docken automatisch erzeugt