Delphi中为应用程序制作启动封面 - DELPHI基础教程 - 新闻中心

文章内容

亲爱的读者朋友，我们在平日的工作中使用各种应用程序时，这些程序往往有个精美的启动封面。这令我们这些编程初学者心动不已！如何在我们自己制作的应用程序中实现这种启动封面的效果呢？笔者进行了一番探索，找到了一个解决方法。下面就让我们一起来DIY，let's go!

　　一、启动封面实现思路

　　为了实现启动封面的效果，我们要在delphi中使用两个窗体。一个窗体A用于显示程序的启动封面，而另一个为程序的主窗体B包含了您所设计的种种功能。窗体A是一个非规则窗口，其标题栏及最大化、最小化按钮和边框都被屏蔽掉了，其用一个Image控件装载一个图片文件来显示程序的封面，并用一个timer控件实现该窗口的定时关闭。为了方便程序使用者快速跳过启动封面直接进入程序主窗体，我们还要设置一个click事件来关闭窗体A并调用主窗体B。

　　二、操作具体步骤

　　1、请先在delphi6.0中创建一个应用程序及主窗体。选择主菜单下的File/New/Application命令，这个操作将创建一个应用程序和一个主窗体。随后将主窗体的name属性由form1改为Mainform，主窗体的其余情况在此不详述，请根据您所设计的应用程序功能自行操作。

　　2、制作程序启动封面的图片。图片的大小您应该细细考虑一下，为此笔者还专门将foxmail4.0的启动封面用抓图软件抓了下来，在绘图软件中细细测量了一下。其大小为380×240，笔者觉得foxmail这款主流软件在设计启动封面的大小时一定进行过周全的考虑。故建议您也采用这个尺寸，当然您也可以自行设置启动封面的大小。（请考虑当今流行的屏幕主分辨率是800×600）在制作启动封面时要考虑您所编制软件的功能及名称，软件的封面是给人的第一印象。假如您的软件是要在市场上推广的话，建议您找专业的美工设计师来设计一番为好！笔者在此偷懒了一番，随意去因特网抓了一幅风景画用paint shop pro缩小了图片的尺寸便做为了封面。另外图片的格式最好为gif或者jpg格式，这样在编译出来的程序不致于太肥。

　　3、增加封面窗体，请点击delphi工具栏中的new form按钮。创建一个新窗体，并在其上添加一个 Image控件，并且选中Image控件并在属性框中找到picture属性点右边的小按钮。在弹出的图像编辑窗口中，单击load键载入您所制作的封面。然后将Image控件的Autosize属性设为True，这样Image控件便能自动适应图片的大小了。为了实现启动封面的定时关闭，再添加一个Timer控件，将其enable属性设为true以触发ontimer事件，Interval属性设为5000(即5秒)，这两项属性操作便是在窗体显示5秒后触发ontimer事件来关闭窗口。

图一

　　4、设置封面窗体属性使之符合启动封面要求。请修改下列封面窗体属性：

Position = PoscreenCenter 
//运行时居于屏幕中央
Autosize = true
//自动适应Image控件，使启动图片完整显示
BorderStyle = bsnone
//窗口无标题栏及最大化、最小化及关闭按钮和边框
Name = splashform

　　三、程序代码解析

　　选择主菜单下的Project/View Scource 命令，打开这个项目的项目文件。根据下列代码进行修改。

program Project2;
uses
  Forms,Controls,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {SplashForm};
{$R *.res}
begin
  Application.Initialize;
  SplashForm :=TSplashForm.Create(Application);
  //创建splash窗体
  SplashForm.ShowModal;
  //以模式对话框的方式显示splash窗体
  if  (SplashForm.ModalResult =  mrOK) then
  //如果定时时间到或单击了窗体上的图形
  begin
          Application.Title := '测试Splash窗体';
	  //设置应用程序的标题
          Application.CreateForm(TMainForm, MainForm);
	  //自动方式创建的主窗体
          SplashForm.Hide;
	  //将启动封面窗体隐藏
          SplashForm.Release;
	  //将启动封面窗体清除
          Application.Run;
  end;
end.

　　随后在splash窗体上编写下列事件代码

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
       SplashForm.ModalResult:=  mrOK; 
       //定时时刻到后的事件处理程序
end;

procedure TSplashForm.Image1Click(Sender: TObject);
begin
   SplashForm.ModalResult:=  mrOK;
   //单击splash窗体上图像的事件处理程序
end;

　　该程序在Pwin98se+delphi6下编译通过。

【