MDIChild-Fenster nicht dierkt auf dem Formular erstellen

[Matze]

Hallo!

Ich versuche mich gerade an einer MDI-Anwendung, nur klappt das nicht so, wie ich es gerne hätte. FormStyle des Hauptformulars ist auf fsMDIForm und des Unterformulars auf fsMDIChild.
Nun ist es so, dass die Formulare direkt auf dem Hauptformular erstellt werden. Mein Problem ist aber, dass ich ein PageControl verwende, auf dem diese Child-Fenster erzeugt werden sollen. Momentan werden die Child-Fenster hinter das PageControl gesetzt.
Ich müsste quasi sagen können, dass ein TabSheet auf fsMDIform steht, nur geht das so natürlich nicht.

Falls ihr euch das nicht richtig vorstellen könnt, anbei ein bearbeiteter Screenshot, der zeigt, was ich gerne realisieren möchte.

Geht das irgendwie?

[MrKnogge]

Du möchtest also deine Child-Formulare auf den Tabsheets erstellen ?

Oder möchtest du eine ganz normale MDI-Anwendung bei der nur ein Child sichtbar ist ?

[Matze]

Zitat:

Zitat von MrKnogge

Du möchtest also deine Child-Formulare auf den Tabsheets erstellen ?

Genau das möchte ich. Die Child-Formulare sollen alle auf einem bestimmten TabSheet erstellt werden.

[MrKnogge]

Dann schau dir mal die Advanced-Demo von den VirtualTreeView-Demos an, da wird genau das gemacht, allerdings wird da nur der "Inhalt" der Form auf dem PageControl angezeigt, also ohne Caption.

gruss

[Matze]

Danke, doch ich werde daraus nicht ganz schlau. Da sind so viele Demos dabei, aber nirgendwo, wo der Source dabei ist, habe ich etwas passendes für mich gefunden. Könntest du mir bitte sagen, in welcher Demo ich das finden kann?

[MrKnogge]

Bei der Standard Installation in:

C:\Programme\Soft Gems\Virtual Treeview\Demos\Advanced\

gruss

[Matze]

Aber das hat imho nichts mit MDI-Fenstern zu tun :gruebel:

Auszug aus der VirtualTreeView Demo:

Delphi-Quellcode:

NewDemoClass := TGeneralForm;

  if (ContainerPanel.ControlCount = 0) or not (ContainerPanel.Controls[0] is NewDemoClass) then
  begin
    if ContainerPanel.ControlCount > 0 then
      ContainerPanel.Controls[0].Free;

    if Assigned(NewDemoClass) then
    begin
      NewDemo := NewDemoClass.Create(Self);
      NewDemo.Hide;
      NewDemo.BorderStyle := bsNone;
      NewDemo.Parent := ContainerPanel;
      NewDemo.Align := alClient;
      NewDemo.Show;
    end;
  end;

[MrKnogge]

Warum nicht ?

Der Typ TNewDemoClass entspricht einem Formular, und es wird nichts anderes gemacht, als dass der "Inhalt" der Formulare angezeigt wird, (allerdings ohne Caption etc.)

gruss