delphi7中怎样使用Timer这个组件？

Posted 2023-03-30

例如我想每隔2秒就执行这段代码，该怎样实现 procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask('YodaoDict.exe');
end;

先放一个timer控件到界面上，将它的interval设定为2000（这个就是用来设定定时器时间的，单位为毫秒，1秒钟即为1000），然后双击它，在begin与end之间写上KillTask('YodaoDict.exe');就行了
这样这个定时器就会在程序启动时运行，如果你是想用按钮手动控制它，就可以将它的action下的enabled设为false，然后在某个按钮，比如button1的单击事件中写成
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end; 参考技术A 双击timer事件 输入KillTask('YodaoDict.exe');
timer 的interval设定为2000
timer的enable 设为true，ok