下载本文示例代码
大家都用过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. 运行效果如下图所示。
以上程序在Windows98/2000 Delphi 7企业版中调试成功。 zmbbs=1;
大家都用过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. 运行效果如下图所示。
以上程序在Windows98/2000 Delphi 7企业版中调试成功。 zmbbs=1;
下载本文示例代码
用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示用Delphi实现快闪窗体信息提示
