delphi如何关闭定时器

Posted 2023-03-30

部分代码
SetTimer(Self.Handle,1,TheTime*1000,@TimerShutDown);

procedure TimerShutDown(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;
var IsShutDown : Integer;
begin
ShowMessage('');
KillTimer(handle,identer);
end;
我是想实现定时器只执行一次，执行一次后就关闭定时器

参考技术A 为什么要删除？把Timer的Enabled属性置为false就可以了 参考技术B 不明白楼主为什么不用Win32的Timer？
要这么写的话，还不如直接用C++得了 参考技术C timer.Enabled:=not timer.Enabled; 参考技术D 为什么不使用TTimer组件？