level 8
如果不使用全局变量,如何让Delphi中的TTimer在循环了一定次数后释放呢?
主要是考虑到使用全局变量将不适应需要一定次数后释放的动态创建的TTimer。
2016年02月23日 12点02分
1
level 12
procedure TimerOnTime(sender:TObject);
begin
TTimer(Sender).Tag := TTimer(Sender).tag+1;
//---Do Something.....
if TTimer(Sender).tag > n then begin
TTimer(Sender).Enabled := False;
TTimer(Sender).Free;
end;
end;
2016年02月29日 10点02分
4