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;

效果图:

posted @ 2013-05-03 11:05  爱智旮旯  阅读(452)  评论(0编辑  收藏  举报