Delphi屏蔽TRadioButton的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;

原文地址：http://stackoverflow.com/questions/2857235/setting-tradiobutton-to-checked-causes-onclick-event