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;

 

 

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;