用delphi实现快闪窗体信息提示
大家都用过photoshop或adobe reader，它们启动的时候先显示的窗体就称做快闪窗体。虽然word等软件也有快闪窗体，但是只要你稍微注意一下就会发现前者有动态信息提示，后者没有。 photoshop或adobe reader启动时会在快闪窗体上不断变换显示信息提示，如“正在加载字体”、“正在加载画笔”、“正在初始化”、“正在对字体进行排序”……，很多书上讲了如何制作快闪窗体，但是没有讲如何实现在快闪窗体上增加信息提示，那么如何制作呢？方法如下：
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. |
运行效果如下图所示。
