将 TRadioButton 设置为选中会导致 OnClick 事件

Question

mybox.Checked := true;

将 TRadioButton 设置为选中（通过代码）会导致调用 OnClick 事件处理程序。

如何识别用户是否通过 GUI 交互进行状态更改

Answer 1

您可以在以编程方式更改单选按钮状态时取消 OnClick 事件处理程序：

procedure TForm1.Button6Click(Sender: TObject);
var
  Save: TNotifyEvent;

begin
  Save:= RadioButton2.OnClick;
  RadioButton2.OnClick:= nil;
  RadioButton2.Checked:= not RadioButton2.Checked;
  RadioButton2.OnClick:= Save;
end;

Answer 2

 mybox.Tag := 666; 
 mybox.Checked :=true; 
 mybox.Tag := 0;

procedure myboxOnclick(Sender : TObject);
begin
if Tag = 0 then
//Do your thing
end;

Answer 3

如果您有一个操作连接到单选按钮，则可以设置该操作的选中属性。这也将阻止触发 OnClick 事件。

Answer 4

TRAdioButton （如 TCheckBox）提供了一个受保护的属性ClicksDisabled来帮助您。

我使用类助手来添加所需的功能：

RadioButton1.SetCheckedWithoutClick(False);

使用以下 VCL TRadioButton 类助手：

TRadioButtonHelper = class helper for TRadioButton
    procedure SetCheckedWithoutClick(AChecked: Boolean);
end;

procedure TRadioButtonHelper.SetCheckedWithoutClick(AChecked: Boolean);
begin
    ClicksDisabled := True;
    try
        Checked := AChecked;
    finally
        ClicksDisabled := False;
    end;
end;