在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论