如何禁用TRadioGroup组件中的单个选项？

原生的TRadioGroup不支持直接禁用单个选项，原因是它的Items属性仅作为字符串集合管理选项，内部生成的每个单选按钮控件并未暴露给开发者，无法直接访问并修改其Enabled属性。

你可以通过以下几种方式实现需求：

• 最直接的替代方案：使用TGroupBox + 独立TRadioButton
  放弃TRadioGroup，改用TGroupBox容器搭配多个独立的TRadioButton控件。每个TRadioButton都是独立的控件实例，你可以直接设置单个控件的Enabled属性，布局也更灵活，适合大多数场景。

• 自定义TRadioGroup子类
  通过继承TRadioGroup，重写相关方法保存内部生成的单选按钮实例，从而实现对单个选项的控制。示例代码如下（Delphi环境）：

  type
    TMyRadioGroup = class(TRadioGroup)
    private
      FRadioButtons: array of TRadioButton;
    protected
      procedure CreateWnd; override;
    public
      procedure EnableItem(Index: Integer; Enabled: Boolean);
    end;
  
  procedure TMyRadioGroup.CreateWnd;
  var
    I: Integer;
    Ctrl: TControl;
  begin
    inherited;
    SetLength(FRadioButtons, Items.Count);
    for I := 0 to ControlCount - 1 do
    begin
      Ctrl := Controls[I];
      if Ctrl is TRadioButton then
        FRadioButtons[I] := TRadioButton(Ctrl);
    end;
  end;
  
  procedure TMyRadioGroup.EnableItem(Index: Integer; Enabled: Boolean);
  begin
    if (Index >= 0) and (Index < Length(FRadioButtons)) then
      FRadioButtons[Index].Enabled := Enabled;
  end;
  

  使用时，直接调用EnableItem方法传入选项索引和启用状态即可。

• 模拟禁用（仅视觉效果）
  如果不需要严格的交互限制，可通过OnDrawItem事件自定义绘制禁用的选项（比如改为灰色文字），同时在OnClick事件中拦截禁用选项的选择操作。但这种方式仅为视觉模拟，无法完全阻止用户交互，仅适用于简单场景。

内容的提问来源于stack exchange，提问作者Steve Sneed