举个例子,你自己看吧,挺简单的
在许多应用软件中,启动程序后,在主导界面出现之前,有一个一般以图象为主,文字为辅的画面,通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息等,停留数秒或按了任意键后软件进入主导界面,这个画面称为Splash画面,意思为引人注目画面。这个画面的另外一个用处是在处理耗时进程时,为用户展示一幅优美、舒心的图象。
其实在Delphi中可以很容易实现这一技巧。下面用一个例子来逐步说明如何实现Splash画面。
1在你的程序中增加一个窗体,把它的名字改为SplashForm,BorderStyle属性设置为bsNone,Position属性设置为poScreenCenter。
2为SplashForm窗体增加一系列必要的构件,如Label、Panel、Image、Shape以及Bevel等。
3使用IDE的Project|Option功能项把SplashForm窗体从Auto-Create表移到Available 表中。
4将SplashForm窗体的Unit加入到主窗体Unit的Uses语句中。
5在主程序的.dpr文件中加入一段控制代码,位置是在begin之后、其他代码之前,代码如下:
SplashForm:=TSplashForm.create(Application);
SplashForm.Show;
SplashForm.refresh;
其目的是在建立其他窗体及运行程序之前,建立并显示Splash窗体。
6编写主窗体OnShow事件的响应过程。
SplashForm.Free;
在本例中,这段代码作用为当屏幕显示主窗体时,释放Splash窗体。
7最后,为主程序的.dpr文件写一段延迟程序,目的是使Splash画面在屏幕上有一段停留的时间。最简单的办法使用一个无效循环,如:
var i,x:longint
for i:=1 to 100000 do
x:=i;
但是,由于机器运行速度不同,有快有慢,表现出来的效果并不理想,最好的办法是使用时间函数,预先规定Splash画面的停留时间。下列代码使Splash画面在屏幕上停留5 秒钟。
var time1:TDateTime;
time1:=now;
repeat
until time1+StrtoTime(′00:00:5′)<=now;
当然,时间延迟代码必须在Splash画面显示之后,具体位置是在SplashForm.refresh; 语句的后面,建立程序主窗体之前。
读者可以运用上述方法,在你的应用程序当中增加一个Splash画面,使你的程序更加漂亮。
以下为程序源代码。其中Splash窗体借用了delphi\Demos\DB\MASTAPP\Splash。
{PROJECT1.DPR}
program Project1;
uses
Forms,SysUtils,
Unit1 in ′Unit1.pas′ {Form1},
Splash in ′..\..\Demos\DB\MASTAPP\Splash.pas′ {SplashForm};
{R *.RES}
var time1:TDateTime;
begin
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Refresh;
time1:=now;
repeat
until time1+StrtoTime(′00:00:5′)<=now;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
{UNIT1.PAS 主窗体}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,splash;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{R *.DFM}
procedure TForm1.FormShow(Sender: TObject);
begin
SplashForm.Free;
end;
end.
{SPLASH.PAS Splash窗体}
unit Splash;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TSplashForm = class(TForm)
Panel1: TPanel;
Label3: TLabel;
Bevel1: TBevel;
Label1: TLabel;
Image1: TImage;
end;
var
SplashForm: TSplashForm;
implementation
{R *.DFM}
end.
分享到:
相关推荐
程序启动欢迎界面,溅屏(Splash窗体)实现
两个Demo教你如何在应用程序初始化的时候显示一个启动窗体,也就是加载界面。一个是利用ApplicationContext,一个是利用多线程实现。
窗体启动效果界面,程序启动前可以做初始化的一些工作
以前在给自己的小程序制作启动界面/启动窗口的时候,VC可以直接添加splash类,但是EVC VS都不能,所以把SPLASH类发上来。大家用的时候在项目中直接添加该类和头文件,然后把要设为启动界面的图片(BMP)设置成IDB_...
winform主窗体数据量大的时候,显示一个加载数据的小页面
使程序启动时更炫,显示启动图片, 使用Splash类,继承性好,附带说明
Splash界面/启动界面中处理耗时任务演示代码,详细介绍请参考:http://blog.csdn.net/u012939909/article/details/53350417
Splash启动界面
这篇文章通过两种方法来实现类似UC浏览器的Splash的类似进度条的效果
本文实例讲述了Android开发基础之创建启动界面Splash Screen的方法。分享给大家供大家参考。具体如下: 启动界面Splash Screen在应用程序是很常用的,往往在启动界面中显示产品Logo、公司Logo或者开发者信息,如果...
简单描述了vc下如何实现四种程序启动画面方法!
主要介绍了Android Studio 利用Splash制作APP启动界面,本文通过图文并茂的形式给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
android 移动开应用程序首界面,欢迎界面。 闪屏界面,splash界面。
简单炫酷Splash界面
为基于对话框的应用程序设置启动画面,此为vc 6.0附带的启动画面类Splash
别无他意,只是想提供方便,从而实现资源共享
本程序是在自己开发的程序启动之前,添加一个启动界面,可以介绍自己程序,功能。
不破解跳过unity splash 界面,去掉烦人的LOGO 不破解跳过unity splash 界面,去掉烦人的LOGO 不破解跳过unity splash 界面,去掉烦人的LOGO 不破解跳过unity splash 界面,去掉烦人的LOGO 不破解跳过unity splash ...
我们在开发应用程序的时候,常常遇到程序启动比较慢,为了提高用户的体验,增加一个闪屏,也就是SplashScreen,这样做的好处有:1、让用户看到加载的过程,提高程序的交互响应;2.可以简短展示或者介绍程序的功能...
CDLINUX 启动盘制作必备的 splash.xpm.gz 下载完解压即可