请教关闭一个事件和开启动一个事件的问题 比如我把一个click nil了 暂时关闭了!onclick:=nil;那么我怎么再把它开启!试了很多办法都没有用! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 onclick:=nil;那以后的onclick肯定都没有用了简单的方法是,设置一个BOOL变量如yn。在onclick事件的开始写if yn=false then exit;这样,你把yn设为false,那么这个onclick肯定就关闭了当把yn设为true时,自然又开启了。 TDemoForm = .......private tmpEvent :TNotifyEvent;end;proceudre TDemoForm.DisableEvent;begin tmpEvent := Self.Button1.Onclick; button1.onclick := nil;end;procedure TDemoForm.EnableEvent;begin Button1.onclick := tmpEvent;end; 本来你Onlick等于什么的再指回去不就行了? 请问能将窗口始终置于最底层的API ADOQuery1。ParamByName的问题~!~急急 更改密码问题 急救!!!!!!!!!!! 如何判断Serversocket接受到了clientsocket的数据流 请各位大侠帮忙看看我关于数据库备份和恢复的程序那儿出错!!!! 一段SQL语句的问题,大家帮忙看一下!!!!!!! 大家进来聊聊,给高分! 诸多问题,请高手赐教! 想改做共享软件,大家给个建议- 怎样控制(或引用)线程中的MEDIAPLAYER? 组合的问题,请大家看下 求Delphi7 连接oracle9i....在线等
在onclick事件的开始写
if yn=false then
exit;
这样,你把yn设为false,那么这个onclick肯定就关闭了
当把yn设为true时,自然又开启了。
...
private
tmpEvent :TNotifyEvent;end;proceudre TDemoForm.DisableEvent;
begin
tmpEvent := Self.Button1.Onclick;
button1.onclick := nil;
end;procedure TDemoForm.EnableEvent;
begin
Button1.onclick := tmpEvent;
end;