Objekt als published property

[oki]

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