我一用:RadioButton1.Checked :=True,就执行RadioButton1Click事件.能不能不执行这个事件呀?(50分)

  • 主题发起人 主题发起人 LookSeven
  • 开始时间 开始时间
暂时 disable OnClick 事件的处理过程:
var
SaveEvent: TNotifyEvent;
begin
SaveEvent := RadioButton1.OnClick
//保存
RadioButton1.OnClick := nil
//Disable
RadioButton1.Checked := True

RadioButton1.OnClick := SaveEvent
//恢复
end;
 
试试我的方法:
设一个Private变量blnCheck,写为:
blnCheck:=true;
RadioButton1.Checked :=True;
blnCheck:=false;
在RadioButton的Click事件的开始加上:
if blnCheck then exit;
用上述方法即可避免执行Click事件。
 
请继续或结束
 
多人接受答案了。
 
后退
顶部