//文字在窗体上水平来回移动
procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}
begin
if label1.Left+label1.Width>0 then
label1.Left:=label1.Left-2
else label1.Left:=form1.Width;
end;delphi label1 文字在窗体上水平来回移动,布布扣,bubuko.com
原文：http://www.cnblogs.com/xe2011/p/3876409.html