Delphi中重写TRadioButton显示异常及添加GroupIndex属性方法

• 设计器识别控件类型依赖DFM文件记录和组件注册状态：
  1. 初始拖放的是标准TRadioButton，DFM文件中控件类名被记录为TRadioButton，仅修改代码变量声明不会同步更新DFM内容，设计器读取DFM时仍判定为标准控件。
  2. 自定义TMyRadioButton未注册到Delphi组件面板，设计器无法识别该自定义类，因此对象检查器无法显示正确类名。

显示问题的修正方法：

• 手动修改DFM（右键窗体→View as Text），将目标控件的object rbSortNone: TRadioButton替换为object rbSortNone: TMyRadioButton，保存后切回设计视图即可。
• 若需后续直接在设计器拖放该控件，可通过RegisterComponents函数将其注册到组件面板（需封装到包中）。

1. 扩展TMyRadioButton类，添加GroupIndex属性 #

修改类定义，增加分组索引字段与可编辑属性：

type
  TMyRadioButton = class(Vcl.StdCtrls.TRadioButton)
  private
    FChecked: Boolean;
    FGroupIndex: Integer;
    procedure SetGroupIndex(Value: Integer);
  protected
    procedure SetChecked(Value: Boolean); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
  end;

implementation

constructor TMyRadioButton.Create(AOwner: TComponent);
begin
  inherited;
  FGroupIndex := 0; // 初始化默认分组索引
end;

procedure TMyRadioButton.SetGroupIndex(Value: Integer);
begin
  if FGroupIndex <> Value then
    FGroupIndex := Value;
end;

2. 修改分组取消逻辑，按GroupIndex匹配 #

更新TurnSiblingsOff过程，仅关闭同父容器下GroupIndex相同的自定义单选按钮：

procedure TMyRadioButton.SetChecked(Value: Boolean);

  procedure TurnSiblingsOff;
  var
    I: Integer;
    Sibling: TControl;
    SiblingRadio: TMyRadioButton;
  begin
    if Parent = nil then Exit;
    for I := 0 to Parent.ControlCount - 1 do
    begin
      Sibling := Parent.Controls[I];
      if (Sibling <> Self) and (Sibling is TMyRadioButton) then
      begin
        SiblingRadio := TMyRadioButton(Sibling);
        // 仅处理同分组的单选按钮
        if SiblingRadio.GroupIndex = Self.GroupIndex then
        begin
          if Assigned(SiblingRadio.Action) and (SiblingRadio.Action is TCustomAction) 
             and TCustomAction(SiblingRadio.Action).AutoCheck then
            TCustomAction(SiblingRadio.Action).Checked := False;
          SiblingRadio.SetChecked(False);
        end;
      end;
    end;
  end;

begin
  if FChecked <> Value then
  begin
    FChecked := Value;
    TabStop := Value;
    if HandleAllocated then
    begin
      SendMessage(Handle, BM_SETCHECK, WPARAM(FChecked), 0);
      if not (csLoading in ComponentState) and IsCustomStyleActive and Visible then
        SendMessage(Handle, WM_SETREDRAW, 1, 0);
    end;
    if Value then
    begin
      TurnSiblingsOff;
      inherited Changed;
      if not ClicksDisabled then
        Click;
    end;
  end;
end;

3. 最终使用步骤 #

• 修改DFM文件将目标3个控件的类改为TMyRadioButton。
• 在对象检查器中给同组的控件设置相同的GroupIndex值（比如给3个独立组的控件设为1，另外2个设为0），即可实现点击时仅同分组的控件取消选中。

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