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

2005-12-8 01:38| 查看: 1014| 评论: 0|原作者: |来自: Internet    

该页加入收藏夹

分享到： QQ空间 新浪微博 腾讯微博 微信 更多 0

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企业版中调试成功。