TPersistent in TComponent...

[Corelgott]

Hi @ all,

ich habe eine TPersistent (TBar) in einem TComponent (TFoo) untergebracht...
Das TPersistent (TBar) ist per property im pulished Teil. Das doofe ist bloß, dass bei meinem Persistent (TBar), welches eine Unterinstanz von meinem TComponent (TFoo) ist und aus irgend einem Grund ich nicht den richtigen Life-Cycle einhalte. Was zur Folge hat, das bei dem TPersistent (TBar) die Loaded methode nicht aufgerufen wird. Somit auch keine Daten vom OI an die Application zur Runtime kommen.

Hat da jemdand ne Idee für mich?

Delphi-Quellcode:

unit untFoo;

interface

uses
  Classes, SysUtils;

type
  TBar = class(TComponent)
  private
    FCaption : String;
  published
    property Caption : String read FCaption write FCaption;
  end;

type
  TFoo = class(TComponent)
  private
    FBar : TBar;
    procedure setBar(const Value: TBar);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Bar : TBar read FBar write setBar;
  end;

implementation

{ TFoo }

constructor TFoo.Create(AOwner: TComponent);
begin
  inherited;
  self.FBar := TBar.Create(Self);
end;

destructor TFoo.Destroy;
begin
  if assigned(self.FBar) then
    FreeAndNil(self.FBar);

  inherited;
end;

procedure TFoo.setBar(const Value: TBar);
begin
  self.FBar.Assign(Value);
end;

end.

Ich lege mal das Projekt-Geflecht bei.

Danke für's Nachdenken im Voraus!

cya

Corelgott