delphi - 将 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;