http://www.th7.cn/Program/delphi/201608/940759.shtml

Delphi屏蔽TRadioButton的OnClick事件

2016-08-20 20:17:52来源:CSDN作者:hncsl12人点击

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

发表于 2016-12-01 02:08 旷野轻尘一个人阅读(53) 评论(0) 编辑收藏举报