delphi - 如何将另一个类设置为 TComponent 后代类的属性

Question

我正在定义我的第一个组件，我希望它们可以使用 TMyOptions 类实例进行配置。

TMyCmp = class(TComponent)
protected
  FMyOptions : TMyOptions;
  ...
published
  property MyOptions : TMyOptions read FMyOptions write FMyOptions;
  ...
end;

构造函数中的每个组件都会创建一个 TMyOptions 实例，该实例的定义如下例所示：

TMyOptions = class
protected
   FMyOption1 : boolean;
   FMyOption2 : boolean;
published
   property MyOption1 : boolean read FMyOption1 write FMyOption2;
   property MyOption2 : boolean read FMyOption2 write FMyOption2; 
end;

因此，在对象检查器中，我可以看到 TMyOptions 但无法更改值。有人能告诉我实现目标的正确方法是什么吗？谢谢大家。