//安装时钟
SetTimer()
//消息处理里使用时钟
case(windows消息)of
WM_TIMER:.......
//删除时钟
KillTimer()
--------------
另外:
直接用TTimer类动态生成一个不可以用吗?
先放一个timer控件到界面上,将它的interval设定为2000(这个就是用来设定定时器时间的,单位为毫秒,1秒钟即为1000),然后双击它,在begin与end之间写上KillTask('YodaoDict.exe')就行了这样这个定时器就会在程序启动时运行,如果你是想用按钮手动控制它,就可以将它的action下的enabled设为false,然后在某个按钮,比如button1的单击事件中写成
procedure TForm1.Button1Click(Sender: TObject)
begin
timer1.Enabled:=true
end
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)