将TRadioButton设置为checked会导致OnClick事件

Question

mybox.Checked := true;

将TRadioButton设置为选中(通过代码)会导致调用OnClick事件处理程序.

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

Answer 1

您可以在以编程方式更改radiobutton状态时使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;