DFM-Abspeicher-Problem

[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;