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;
效果图:
|
请发表评论