Delphi:{在Delphi中实现动态字幕}
首页
网站制作
软件工程
VC语言
Delphi
VB
Asp
Java
数据库
编程语言
.NET
热点排行
《Mastering Delphi 6》学习笔记之八
使你的窗体保留在桌面的最上面
Delphi+汇编例子1(求和的比较)
get CPU id (很全的)
Delphi实验:在串中查找第i个子串的位置及效率评测
动态更新DBGrid的颜色
在Delphi程序中应用IE浏览器控件
耶書制造 CHMmaker 2.85版 增加转换HPJ工程到HHP工程的功能。
用Delphi创建COM+ 应用服务器(二)
远程控制篇:抓取远程屏幕图像
Delphi随笔二
支持多线程的日志类,可以在线程中使用,用来与主窗口通讯
Delphi 与 Excel (二)
Project JEDI VCL组件编码标准
如何用idFTP遍历整个目录----下载、删除
{在Delphi中实现动态字幕}
类别:
Delphi
点击:
0
评论:
0
推荐:
{ 如果大家使用过《金山词霸》或《东方快车》的话,一定会对其“关于”窗口中的滚动字幕感兴趣,其实利用Delphi中的Timer控件可以很轻松地实现这一功能。
一、设计思路
首先在窗体上放置一个Panel控件,并在Panel控件中放置需要显示的文字,然后通过Timer控件,在一定的间隔时间内不断改变Panel控件的位置就可以实现滚动字幕的效果了。
二、实现方法
1.新建一个窗体,设置其属性如下:
Name:frmAbout1
AutoScroll:False
2.在窗体上放置一个Panel控件,其默认名称为Panel1,设置其属性如下:
BevelOuter:bvNone
Caption:(设为空)
调整Panel1的高度和宽度,使其成一竖长条形,其高度视需显示的内容多少而定(可以大于窗体的高度)。
3.在Panel1上面放置Label控件以显示文字,当然你也可以在上面放置Image控件来显示图片,但图片的尺寸不可太大,否则会影响显示效果。
4.在窗体上放置一个Timer控件,其默认名称为Timer1,将其Interval属性值设为50,并在其OnTimer事件中输入以下代码:
if Panel1.top>-Panel1.height then
Panel1.top:=Panel1.top-1
else
Panel1.top:=frmAbout1.height-35;
{判断Panel1是否移动到了窗体的最上端,如果不是,就向上移动一个像素点的位置;如果是的话,就将Panel1移动到窗体的最下端,循环显示字幕}
5.在窗体上放置一个Button控件,将其Caption属性设为“确定”,并在OnClick事件中输入以下代码:
close;{关闭窗体}
三、改进分析
以上是一个简单的滚动字幕的实现过程,但还有一个地方需要进一步完善:如果窗体使用了图片作为背景的话,Panel控件会遮挡住部分背景图案。其实要解决这个问题,我们完全可以不使用Panel控件,而是直接将Label控件放置在窗体上,并将Label控件的Transparent(透明)属性值设为True,然后通过Timer控件直接控制这些Label控件的移动。限于篇幅,在这里笔者就不再具体叙述了
本文地址:http://com.8s8s.com/it/it5924.htm
白羊
金牛
双子
巨蟹
狮子
处女
天秤
天蝎
射手
摩羯
水瓶
双鱼
今日
本周
本月
白羊
金牛
双子
巨蟹
狮子
处女
天秤
天蝎
射手
摩羯
水瓶
双鱼
A型
B型
O型
AB型
子鼠
丑牛
寅虎
卯兔
辰龙
巳蛇
午马
未羊
申猴
酉鸡
戌狗
亥猪
A型
B型
AB型
O型
1月
2月
3月
4月
5月
6月
7月
8月
9月
10月
11月
12月
1日
2日
3日
4日
5日
6日
7日
8日
9日
10日
11日
12日
13日
14日
15日
16日
17日
18日
19日
20日
21日
22日
23日
24日
25日
26日
27日
28日
29日
30日
31日
1月
2月
3月
4月
5月
6月
7月
8月
9月
10月
11月
12月
1日
2日
3日
4日
5日
6日
7日
8日
9日
10日
11日
12日
13日
14日
15日
16日
17日
18日
19日
20日
21日
22日
23日
24日
25日
26日
27日
28日
29日
30日
31日