DFM-Abspeicher-Problem

[MaOfDe]

Hallo,

schreib grad anner Kompo, ist sowas ähnliches wie eine PageControl. Das Problem liegt bei den Sheets, also den einzelnen Seiten dieser Kompo. Ein Sheet enthält jeweils eine Scrollbox, wo zur Designtime andere Kompos (Buttons etc.) reingezogen werden sollen. Soweit funktionierts auch... jedoch werden diese Kompos nicht in der DFM gespeichert.
Mein Ziel ist es eigentlich dass die in der ScrollBox befindlichen Kompos im DFM-Abschnitt des Sheets gespeichert werden.

Delphi-Quellcode:

//Aubau Kompo
    {...}
    TFoldingSheet = class(TCustomControl)
    private
        scrBody: TScrollBox;
    public
        constructor Create(...); //-=> Erzeugen der ScrollBox und Freigabe im destructor ;-)
        property Body: TScrollBox read scrBody;

//Aufbau DFM
  {...}
  object FoldingPageCtrl1: TFoldingPageCtrl
    {...}
    object TFoldingSheet
       {...}
       {
          <=-- Hier sollten die Kompos von der Scrollbox stehen...
         ungefähr so ^^:
         object Button1: TButton
            (...)
         end;
       }
    end
  end

Ich habs schon mit Überschreiben von TComponent.GetChildren und *.GetParentComponent beim Sheet probiert, aber ist wohl nicht der richtige Weg ^^, da *Überraschung* es so nicht in der DFM gespeichert wird.

Weiß ener wie man das angeht?

Mfg MaOfDe

[mkinzler]

Wie sieht der Code deines Konstruktors aus?

[MaOfDe]

Zitat:

Zitat von mkinzler

Wie sieht der Code deines Konstruktors aus?

Öhm wüsst jetz nich inwiefern das helfen soll aber gut:

Delphi-Quellcode:

constructor TFoldingSheet.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);

    //set parent
    {...}

    //set properties
    {...}

    //set title bar
    fhTitle:=TFoldingSheetHeader.Create(Self);
    with fhTitle do
    begin
        Parent:=Self;
        OnClick:=EventTitleClick;     
        OnDblClick:=EventTitleClick;
    end;

    //set body
    scrBody:=TScrollBox.Create(Self);
    with scrBody do
    begin
        Parent:=Self;
        Align:=alClient;
        Color:=clBtnFace;
        ParentColor:=False;
        ControlStyle:=ControlStyle+[csAcceptsControls];
        BorderStyle:=bsNone;
    end;
end;

[MaOfDe]

jo ok habs jetz einigermaßen gelöst:

Delphi-Quellcode:

procedure TFoldingSheet.ReadState(Reader: TReader); // hier werden die Kompos aus der DFM geladen
    var i: Integer;
begin
    //release all controls
    while(scrBody.ControlCount>0)do
        scrBody.RemoveControl(scrBody.Controls[0]);

    inherited ReadState(Reader);

    {...}

    for I := ControlCount-1 downto 0 do
    if(Controls[I]<>scrBody)and(Controls[I]<>fhTitle)then
        Controls[I].Parent:=scrBody;
end;

procedure TFoldingSheet.GetChildren(Proc: TGetChildProc; Root: TComponent); // hier werden die Kompos ins DFM gespeichert
    var i: integer;
begin
    for i := 0 to scrBody.ControlCount-1 do
        Proc(scrBody.Controls[i]);
end;