请教关闭一个事件和开启动一个事件的问题

Question

比如我把一个click nil了 暂时关闭了!onclick:=nil;
那么我怎么再把它开启!
试了很多办法都没有用!

Answer 1

onclick:=nil;那以后的onclick肯定都没有用了简单的方法是，设置一个BOOL变量如yn。
在onclick事件的开始写
if yn=false then
  exit;
这样，你把yn设为false，那么这个onclick肯定就关闭了
当把yn设为true时，自然又开启了。

Answer 2

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;

Answer 3

本来你Onlick等于什么的再指回去不就行了?