程序启动欢迎窗体制作方法

在许多应用软件中，启动程序后，在主导界面出现之前，有一个一般以图象为主,文字为辅的画面，通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息等，停留数秒或按了任意键后软件进入主导界面，这个画面称为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.