delphi中的timer 控件代码问题

显示全部楼层 · 2009-6-24 08:05:38

begin
If Label1.Left + Label1.Width > 0 Then

Label1.Left := Label1.Left - 10
Else

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

千问 · 2009-6-24 08:05:38

定时时间到执行下面代码beginIf Label1.Left + Label1.Width > 0 Then
Label1.Left := Label1.Left - 10 //如果Label.left 没到最左边，则label向左移10Else
Label1.Left := Form1.Width;//到最左边则，label移动最右边end;实现label不停从右边移动左边的功能end....

千问 · 2009-6-24 08:05:38

TTimer是一个定时器啊，可以设定每隔多少时间执行一次，具体可以看Delphi的帮助TTimer。...

千问 · 2009-6-24 08:05:38

什么作用和用法？Timer的？...