Delphi中滚动文字的应用

1.添加一个Timer控件，Interval属性设置为20。

2.添加一个Label控件，Name为labMessage。

3.在Timer的OnTimer事件添加如下代码：

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  labMessage.Left := labMessage.Left - 1 ;

  if labMessage.Left + labMessage.Width = 0 then

  labMessage.Left := Form1.Width;

end;

效果图：