Geht das nicht automatisch, wenn du deklarierst:
Delphi-Quellcode:
class TAnything =
class
private
FInt1, FInt2: integer;
FStr:
string;
published
property Int1: integer
read FInt1
write FInt1;
property Int2: integer
read FInt2
write FInt2;
property Str:
string read FStr
write FStr;
end;
FMyControl =
class(<anyancestor>)
private
FTest: TAnything;
procedure SetTest(Value: TAnything);
published
property Test: TAnything
read FTest
write SetTest;
end;
Dazu noch zwei Dinge: Im SetTest musst du entweder statt Zuweisung mit := Assign benutzen, oder daran denken, die alte Instanz von FTest freizugeben, sonst hast du einen Haufen Speicherleichen.
Und UNBEDINGT im Konstruktor FTest erzeugen. Denn sonst hagelt es im Objektinspektor AccessViolations.
Schreib mal ob es so funktioniert hat.
