利用C++ Builder让软件字幕动起来
【打印文章】
文/曹阳
很多优秀的软件,在它的关于对话框中,右半部分有一个开发人员的动态字幕。利用C++ Builder可以方便地实现该功能:
创建一个新工程,在窗体Form1中添加一个Panel组件,将Caption属性清空,另外将Bevelinner和Bevelouter属性设置为Bvnone。选中Panel组件,在其中添加Label组件,将Caption属性清空,Autosize属性设置为True,Name属性设置为Label1。(注意,对于Label1组件
,当Caption属性清空,Autosize属性又为True的情况下,用鼠标选取Label组件是一件比较困难的事。这时可以在对象观察器里通过下拉组合框来选中Label1。)
在窗体中添加一个定时器组件,属性Enable设置为True,属性Interval设置为100。在窗体的左边可以添加一些Label组件,起到说明作用。
添加窗体Form1的Oncreat事件的处理过程:
void__fastcall Tform1::FormCreate(TObject *Sender)
{ //设置LABEL1组件的显示内容
Label-〉Caption="设计:曹阳 编程:徐立伟 测试:魏勇“;
}
添加Timer组件的Ontime事件的处理过程:
void__fastcall Tform1::Timer1Timer(TObject *sender)
{
Label1-〉Top=Label1-〉Top-1;
//将Label1组件向上移动
//如果Label1显示完毕,则重新开始
if (Label1-〉Top〈(Label1-〉Width-30))
Label1-〉Top=Panel1-〉height;
}
编译、链接、运行,即可看到一个不停向上滚动的字幕。
可以调整Timer组件的属性Interval的值,改变字幕滚动的速度。
很多优秀的软件,在它的关于对话框中,右半部分有一个开发人员的动态字幕。利用C++ Builder可以方便地实现该功能:
创建一个新工程,在窗体Form1中添加一个Panel组件,将Caption属性清空,另外将Bevelinner和Bevelouter属性设置为Bvnone。选中Panel组件,在其中添加Label组件,将Caption属性清空,Autosize属性设置为True,Name属性设置为Label1。(注意,对于Label1组件
,当Caption属性清空,Autosize属性又为True的情况下,用鼠标选取Label组件是一件比较困难的事。这时可以在对象观察器里通过下拉组合框来选中Label1。)
在窗体中添加一个定时器组件,属性Enable设置为True,属性Interval设置为100。在窗体的左边可以添加一些Label组件,起到说明作用。
添加窗体Form1的Oncreat事件的处理过程:
void__fastcall Tform1::FormCreate(TObject *Sender)
{ //设置LABEL1组件的显示内容
Label-〉Caption="设计:曹阳 编程:徐立伟 测试:魏勇“;
}
添加Timer组件的Ontime事件的处理过程:
void__fastcall Tform1::Timer1Timer(TObject *sender)
{
Label1-〉Top=Label1-〉Top-1;
//将Label1组件向上移动
//如果Label1显示完毕,则重新开始
if (Label1-〉Top〈(Label1-〉Width-30))
Label1-〉Top=Panel1-〉height;
}
编译、链接、运行,即可看到一个不停向上滚动的字幕。
可以调整Timer组件的属性Interval的值,改变字幕滚动的速度。
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】