delphi label1 文字在窗体上水平来回移动

时间：2022-05-08 23:36:05

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