[界面]程序启动欢迎窗体(Splash) 制作方法(附原码)

类别:Delphi 点击:0 评论:0 推荐:

        举个例子,你自己看吧,挺简单的

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

 

本文地址:http://com.8s8s.com/it/it5031.htm