请问关闭一个事件和开启动一个事件的有关问题
请教关闭一个事件和开启动一个事件的问题
比如我把一个click nil了 暂时关闭了!onclick:=nil;
那么我怎么再把它开启!
试了很多办法都没有用!
------解决方案--------------------
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;
比如我把一个click nil了 暂时关闭了!onclick:=nil;
那么我怎么再把它开启!
试了很多办法都没有用!
------解决方案--------------------
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;