delphi中的timer 控件代码问题

Posted 2023-03-30

begin
If Label1.Left + Label1.Width > 0 Then
Label1.Left := Label1.Left - 10
Else
Label1.Left := Form1.Width;
end;

end.
详细说明下作用和用法
使用时并不是到最右边就可以马上移动到左边。而是要隔一段时间才行，怎么解决？

定时时间到执行下面代码
begin
If Label1.Left + Label1.Width > 0 Then
Label1.Left := Label1.Left - 10 //如果Label.left 没到最左边，则label向左移10
Else
Label1.Left := Form1.Width; //到最左边则，label移动最右边
end;

实现label不停从右边移动左边的功能

end. 参考技术A 什么作用和用法？
Timer的？ 参考技术B TTimer是一个定时器啊，可以设定每隔多少时间执行一次，具体可以看Delphi的帮助TTimer。

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

例如我想每隔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