用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企业版中调试成功。? |
|
|
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|