如何用delphi做滚动的欢迎词字幕
答案:2 悬赏:60
解决时间 2021-12-14 15:22
- 提问者网友：巴黎塔下许过得承诺
- 2021-12-14 07:49
请各位大侠帮下忙必有重赏
最佳答案
- 二级知识专家网友：夢想黑洞
- 2021-12-14 08:40
在form上放置一个标签，标签上写欢迎词
然后设置个时钟，让标签每秒向左滚动一定像素就好了
Timer控件的Interval设为20，OnTimer事件代码如下
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left := Label1.Left - 1 ;
if Label1.Left + Label1.Width = 0 then
Label1.Left := Form1.Width;
end;
然后设置个时钟，让标签每秒向左滚动一定像素就好了
Timer控件的Interval设为20，OnTimer事件代码如下
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left := Label1.Left - 1 ;
if Label1.Left + Label1.Width = 0 then
Label1.Left := Form1.Width;
end;
全部回答
- 1楼网友：陪衬角色
- 2021-12-14 10:13
我是来看评论的
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯