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