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

2016-01-29 14:24 33 1 收藏

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

【 tulaoshi.com - Delphi 】

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


来源:https://www.tulaoshi.com/n/20160129/1493208.html

延伸阅读
标签: Delphi
如果我们把Handle指向桌面,哪TMediaPlay将会在桌面播放。与TCanvas不同的是,TWinControl的Handle的属性是只读的,并且GetHandle方法是静态方法,这说明,我们要Handle指向桌面只有两种方法 修改TWinControl,让Handle可写。 建立TWinControl子类,并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。 其中第二...
用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘 点击下载此详细说明文件 概述: 在这篇文件中,讲述对单个文件的数据加密、数据压缩、自解压的实现。同样,也可以实现对多个文件或文件夹的压缩,只要稍加修改便可实现。 关键...
标签: Delphi
  在网络管理中,有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然,市面上有很多软件可以实现该功能,有些甚至可以进行远程控制,但在使用上缺乏灵活性,如无法指定远程计算机屏幕区域的大小和位置,进而无法在一屏上同时监视多个屏幕。其实,可以用Delphi自行编制一个灵活的远程屏幕抓取工具,简述如下。 一...
在许多程序的关于对话框中,我们常可以看到超级链接式的标签,只须轻轻一点,就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页,或者远程登录,或者自动链入新闻组 如果你苦于找不到实现这些功能的Delphi控件,又无法在帮助文件中找到相关主题,那不妨参照下文,亲手一试! 别看上述的超级链接功能繁多,其实用一条...
  “绑架窗体”:顾名思义,就是将其它应用程序甚至系统程序的窗体活生生地拖进本程序的窗体内。这种未征得其它程序同意的强行“绑架”行为在某些场合下却能发挥出非常独特的作用。本文将讨论“绑架”窗体的技术及应用,并给出了一个完整的“强盗”程序的例子。 从技术上讲,为了实现“绑架”,“强盗”程序中必须要有一个 MDIFor...

经验教程

63

收藏

41
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部