-
c语言入门之利用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的值,改变字幕滚动的速度。
最新更新
Objective-C语法之代码块(block)的使用
VB.NET eBook
Add-in and Automation Development In VB.NET 2003 (F
Add-in and Automation Development In VB.NET 2003 (8
Add-in and Automation Development in VB.NET 2003 (6
Add-in and Automation Development In VB.NET 2003 (5
AddIn Automation Development In VB.NET 2003 (4)
AddIn And Automation Development In VB.NET 2003 (2)
Addin and Automation Development In VB.NET 2003 (3)
AddIn And Automation Development In VB.NET 2003 (1)
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
武装你的WEBAPI-OData入门
武装你的WEBAPI-OData便捷查询
武装你的WEBAPI-OData分页查询
武装你的WEBAPI-OData资源更新Delta
5. 武装你的WEBAPI-OData使用Endpoint 05-09
武装你的WEBAPI-OData之API版本管理
武装你的WEBAPI-OData常见问题
武装你的WEBAPI-OData聚合查询
OData WebAPI实践-OData与EDM
OData WebAPI实践-Non-EDM模式