//文字在窗体上水平来回移动 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;