B bbkxjy Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-30 #2 暂时 disable OnClick 事件的处理过程: var SaveEvent: TNotifyEvent; begin SaveEvent := RadioButton1.OnClick //保存 RadioButton1.OnClick := nil //Disable RadioButton1.Checked := True RadioButton1.OnClick := SaveEvent //恢复 end;
暂时 disable OnClick 事件的处理过程: var SaveEvent: TNotifyEvent; begin SaveEvent := RadioButton1.OnClick //保存 RadioButton1.OnClick := nil //Disable RadioButton1.Checked := True RadioButton1.OnClick := SaveEvent //恢复 end;
C csgcsw Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-31 #3 试试我的方法: 设一个Private变量blnCheck,写为: blnCheck:=true; RadioButton1.Checked :=True; blnCheck:=false; 在RadioButton的Click事件的开始加上: if blnCheck then exit; 用上述方法即可避免执行Click事件。
试试我的方法: 设一个Private变量blnCheck,写为: blnCheck:=true; RadioButton1.Checked :=True; blnCheck:=false; 在RadioButton的Click事件的开始加上: if blnCheck then exit; 用上述方法即可避免执行Click事件。