如何使dxCheckGroupBox内指定cxRadioButton保持禁用不受组框切换影响？

这个问题我之前也碰到过，核心原因就是cbaToggleChildrenEnabledState这个选项会强制遍历并切换所有子控件的Enabled状态，直接覆盖你之前手动设置的禁用状态。给你两个实用的解决方案，看哪个更符合你的需求：

方案1：手动控制子控件启用状态（推荐，更灵活） #

首先关闭组框自带的自动切换功能，然后自己编写逻辑精确控制哪些按钮受组框状态影响：

1. 打开dxCheckGroupBox的属性面板，找到OptionsBehavior，取消勾选cbaToggleChildrenEnabledState；
2. 给dxCheckGroupBox添加OnCheckedChanged事件，编写如下代码：

procedure TYourForm.dxCheckGroupBox1CheckedChanged(Sender: TObject);
var
  I: Integer;
  ChildCtrl: TControl;
begin
  for I := 0 to dxCheckGroupBox1.ControlCount - 1 do
  begin
    ChildCtrl := dxCheckGroupBox1.Controls[I];
    if ChildCtrl is TcxRadioButton then
    begin
      // 这里替换成你要保持禁用的按钮名称
      if (ChildCtrl = cxRadioButton2) or (ChildCtrl = cxRadioButton4) then
        TcxRadioButton(ChildCtrl).Enabled := False
      else
        TcxRadioButton(ChildCtrl).Enabled := dxCheckGroupBox1.Checked;
    end;
  end;
end;

3. 在OnFormShow事件里初始化状态，确保初始时特定按钮是禁用的，同时同步其他按钮和组框的状态：

procedure TYourForm.FormShow(Sender: TObject);
begin
  // 初始禁用目标按钮
  cxRadioButton2.Enabled := False;
  cxRadioButton4.Enabled := False;
  // 同步其他按钮与组框状态
  dxCheckGroupBox1CheckedChanged(nil);
end;

方案2：利用状态变更事件修正（更简单，适合少量控件） #

如果你不想关闭cbaToggleChildrenEnabledState，可以在组框状态切换完成后，强制把特定按钮改回禁用状态：

给dxCheckGroupBox添加OnCheckedChanged事件，直接在事件里重置目标按钮的状态：

procedure TYourForm.dxCheckGroupBox1CheckedChanged(Sender: TObject);
begin
  // 不管组框怎么切换，始终禁用这两个按钮
  cxRadioButton2.Enabled := False;
  cxRadioButton4.Enabled := False;
end;

这个方法的原理是：组框先自动切换所有子控件的状态，然后我们在事件里把特定按钮的Enabled强行改回False，这样就能保留禁用效果。

两种方法都能解决问题，方案1更适合需要精细控制多个控件的场景，方案2则更简洁，适合只有少数几个按钮需要保持禁用的情况。

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