Wenn es eine ReadOnly währe, dann müßte write verschwinden.
Möglich ist auch folgendes:
Delphi-Quellcode:
TMyComp = class(TComponent)
private
FObject: TMyObject;
procedure setObject(const Value: TMyObject);
protected
public
constructor Create(AOwner : TComponent);override;
published
property Objekt : TMyObject read FObject write setObject;
end;
procedure TMyComp.setObject(const Value: TMyObject);
begin
FObject.assign(Value);
end;
Create auf FObject im Constructor obligatorisch, sonst alter Fehler.
Gruß oki