如何创建带只读Published类型TButtonGroup字段的VCL控件

需要创建TSpeedButton的子类TMyDropDownButton，包含一个TButtonGroup字段，点击按钮时显示该TButtonGroup。要求：

• TButtonGroup属性为只读，实例在构造函数中创建
• 属性为Published类型，确保设计时设置能保存到DFM
• 拖放TMyDropDownButton到窗体后，ButtonGroup属性需关联构造函数创建的实例，不允许关联外部拖放的TButtonGroup，并通过Loaded()方法预设相关设置

当前尝试代码存在的问题：拖放组件到窗体后，ButtonGroup属性未正确关联内部创建的实例，无法保存设计时的设置。

unit MyDropDownButton;

interface

uses
    System.Classes
  , Vcl.ButtonGroup
  , Vcl.Buttons
  ;

type
  TMyDropDownButton = class ( TSpeedButton )
    private
      // Fields
      fButtonGroup : TButtonGroup;

    protected
      procedure Loaded; override;

    public
      constructor Create( owner_ : TComponent );
      destructor Destroy; override;

    published
      property buttonGroup : TButtonGroup read fButtonGroup;

  end;


procedure Register;


implementation


procedure Register;
begin
  RegisterComponents('myDropDownButton', [TMyDropDownButton]);
end;

procedure TMyDropDownButton.Loaded;
begin
  inherited Loaded;
  // I need some settings here due to venished props inrelevant for the question
end;

constructor TMyDropDownButton.Create( owner_ : TComponent );
begin
  fButtonGroup := TButtonGroup.Create( self );
  inherited Create( owner_ );
  fButtonGroup.Parent := parent;
end;

destructor TMyDropDownButton.Destroy;
begin
//  FreeAndNIL( fButtonGroup );
  inherited Destroy;
end;


end.

1. 调整构造函数执行顺序与组件初始化 #

先调用父类构造函数完成自身初始化，再创建内部TButtonGroup，并设置其Owner为当前组件，确保它作为子组件被DFM序列化。同时添加设计时隐藏标记，避免用户直接操作该组件：

constructor TMyDropDownButton.Create(owner_: TComponent);
begin
  inherited Create(owner_); // 优先初始化父类组件
  fButtonGroup := TButtonGroup.Create(Self); // 将当前组件设为Owner，确保DFM能保存该子组件
  fButtonGroup.Name := 'InternalBtnGroup'; // 设置唯一名称，避免设计时命名冲突
  // 设计时隐藏该组件，防止用户选中或修改关联
  fButtonGroup.ComponentStyle := fButtonGroup.ComponentStyle + [csNoDesignVisible];
  fButtonGroup.Visible := False; // 默认隐藏，点击按钮时再显示
end;

2. 修正Loaded方法的预设逻辑 #

在Loaded中确保TButtonGroup的Parent正确关联，以及恢复其他设计时设置：

procedure TMyDropDownButton.Loaded;
begin
  inherited Loaded;
  // 将ButtonGroup的Parent设为当前按钮的容器，确保显示位置正确
  if Assigned(Parent) then
    fButtonGroup.Parent := Parent;
  // 此处添加你的预设逻辑，比如位置调整、按钮项初始化等
end;

3. 保留只读属性与自动释放逻辑 #

• 保持ButtonGroup属性为只读的Published类型，无需添加写访问器，确保用户无法关联外部TButtonGroup
• 析构函数无需手动释放fButtonGroup，因为其Owner为当前组件，父类Destroy会自动释放所有子组件

关键说明 #

• 通过将fButtonGroup的Owner设为Self，VCL会自动将其作为子组件序列化到DFM中，保存所有设计时设置
• csNoDesignVisible标记让内部TButtonGroup在设计器中不可见，用户只能通过TMyDropDownButton的ButtonGroup属性编辑其内部设置
• 构造函数顺序调整避免了Owner未初始化导致的组件序列化问题

内容的提问来源于stack exchange，提问作者SOLID Developper