delphi - 重置 AdvOfficeRadioGroup1 中项目的 itemindex（TMS 组件）

Question

取消选中复选框时，如何将 AdvOfficeRadioGroup1 中的项目的项目索引设置为 -1？取消选中会禁用项目，但选择仍然可见。

编辑 ：

Answer 1

附上这段代码：

PROCEDURE TMainForm.AdvOfficeRadioGroup1CheckBoxClick(Sender : TObject);
  BEGIN
    IF AdvOfficeRadioGroup1.CheckBox.Checked THEN BEGIN
      IF AdvOfficeRadioGroup1.Tag>=0 THEN AdvOfficeRadioGroup1.ItemIndex:=AdvOfficeRadioGroup1.Tag;
      AdvOfficeRadioGroup1.Tag:=-1
    END ELSE BEGIN
      AdvOfficeRadioGroup1.Tag:=AdvOfficeRadioGroup1.ItemIndex;
      AdvOfficeRadioGroup1.ItemIndex:=-1
    END
  END;

到 OnCheckBoxClick 事件。它将使用 AdvOfficeRadioGroup 的 Tag 属性来存储先前选择的 ItemIndex，以便在您再次选中该复选框时可以恢复它。