当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 用Delphi实现快闪窗体信息提示

Delphi
Delphi设计简易对象垃圾回收框架
Delphi开发Web应用程序打印组件
Delphi客户服务器应用开发（四）
Delphi自定义部件开发（一）
Delphi自定义部件开发（二）
Delphi自定义部件开发（三）
Delphi自定义部件开发（四）
开发Delphi对象式数据管理功能（一）
开发Delphi对象式数据管理功能（二）
开发Delphi对象式数据管理功能（三）
开发Delphi对象式数据管理功能（四）
开发Delphi对象式数据管理功能（五）
用Delphi语言来学设计模式之简单工厂篇
Delphi2005和DUnit搭建敏捷开发平台记录
你想成Delphi高手吗?快来学Delphi快捷键
Borland最新版开发工具Delphi2005抢先预览
用Delphi实现JPEG格式图像的显示
用DELPHI编程访问SQL SERVER数据库
用Delphi编制趣味动画鼠标
用Delphi实现选单的自动隐藏功能

No. « 2 3 4 5 »

技术文章搜索

关键字

用Delphi实现快闪窗体信息提示

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 92 ::
收藏到网摘: n/a

　　1.在你的程序中建立一个新窗体，将窗体的Name属性设置为frm_Splash，BorderStyle属性设置为bsNone，BorderIcons属性设置为［］，这样快闪窗体显示时便没有标题栏和边界。

　　2.在frm_Splash上，添加一个Image控件，设置它的Align属性为alClient，指定Picture属性，载入一幅图像。

　　3.可以根据需要在窗体上添加别的说明信息，如：设计人、开发商等。用Label控件，一定要把Transparent属性设置为True，这样才是透明的，否则影响背景显示。

　　4.同样用Label控件，把Name属性设置为lbl_Text，同样也把Transparent属性设置为True，道理一样。
在Project1.dpr中添加如下代码：

begin
　Application.Initialize;
　frm_Splash:=Tfrm_Splash.Create(Application); //创建快闪窗体
　frm_Splash.Show; //显示快闪窗体
　frm_Splash.Update; //强制更新快闪窗体
　Application.CreateForm(TfrmMain, frmMain);
　frm_Splash.lbl_Text.Caption:=创建主窗体; //快闪窗体提示信息
　frm_Splash.Update; //强制更新快闪窗体
　……
　Application.CreateForm(Tfrm_MemberInfo, frm_MemberInfo);
　frm_Splash.lbl_Text.Caption:=加载会员信息窗体; //快闪窗体提示信息
　frm_Splash.Update; //强制更新快闪窗体
　Application.CreateForm(Tfrm_MemberTimeOut, frm_MemberTimeOut);
　frm_Splash.lbl_Text.Caption:=加载过期会员窗体; //快闪窗体提示信息
　frm_Splash.Update; //强制更新快闪窗体
　frm_Splash.Hide; //隐藏快闪窗体
　frm_Splash.Free; //释放快闪窗体所占资源
　Application.Run;
end.

　　运行效果如下图所示。


　　以上程序在Windows98/2000 +Delphi 7企业版中调试成功。