Question

如何用DELPHI7制作程序启动封面？

Answer 1

一、nbsp;启动封面实现思路nbsp;nbsp;nbsp;为了实现启动封面的效果，我们要在delphi中使用两个窗体。一个窗体A用于显示程序的启动封面，而另一个为程序的主窗体B包含了您所设计的种种功能。窗体A是一个非规则窗口，其标题栏及最大化、最小化按钮和边框都被屏蔽掉了，其用一个Image控件装载一个图片文件来显示程序的封面，并用一个timer控件实现该窗口的定时关闭。为了方便程序使用者快速跳过启动封面直接进入程序主窗体，我们还要设置一个click事件来关闭窗体A并调用主窗体B。nbsp;nbsp;nbsp;二、操作具体步骤nbsp;nbsp;nbsp;1、nbsp;请先在delphi6.0中创建一个应用程序及主窗体。选择主菜单下的File/New/Application命令，这个操作将创建一个应用程序和一个主窗体。随后将主窗体的name属性由form1改为Mainform，主窗体的其余情况在此不详述，请根据您所设计的应用程序功能自行操作。nbsp;nbsp;nbsp;2、nbsp;制作程序启动封面的图片。图片的大小您应该细细考虑一下，为此笔者还专门将foxmail4.0的启动封面用抓图软件抓了下来，在绘图软件中细细测量了一下。其大小为380×240，笔者觉得foxmail这款主流软件在设计启动封面的大小时一定进行过周全的考虑。故建议您也采用这个尺寸，当然您也可以自行设置启动封面的大小。（请考虑当今流行的屏幕主分辨率是800×600）在制作启动封面时要考虑您所编制软件的功能及名称，软件的封面是给人的第一印象。假如您的软件是要在市场上推广的话，建议您找专业的美工设计师来设计一番为好！笔者在此偷懒了一番，随意去因特网抓了一幅风景画用paintnbsp;shopnbsp;pro缩小了图片的尺寸便做为了封面。另外图片的格式最好为gif或者jpg格式，这样在编译出来的程序不致于太肥。nbsp;nbsp;nbsp;3、nbsp;增加封面窗体，请点击delphi工具栏中的newnbsp;form按钮。创建一个新窗体，并在其上添加一个nbsp;Image控件，并且选中Image控件并在属性框中找到picture属性点右边的小按钮。在弹出的图像编辑窗口中，单击load键载入您所制作的封面。然后将Image控件的Autosize属性设为True，这样Image控件便能自动适应图片的大小了。为了实现启动封面的定时关闭，再添加一个Timer控件，将其enable属性设为true以触发ontimer事件，Interval属性设为5000(即5秒)，这两项属性操作便是在窗体显示5秒后触发ontimer事件来关闭窗口。nbsp;nbsp;图一nbsp;nbsp;nbsp;4、nbsp;设置封面窗体属性使之符合启动封面要求。请修改下列封面窗体属性：nbsp;Positionnbsp;=nbsp;PoscreenCenternbsp;//运行时居于屏幕中央Autosizenbsp;=nbsp;true//自动适应Image控件，使启动图片完整显示BorderStylenbsp;=nbsp;bsnone//窗口无标题栏及最大化、最小化及关闭按钮和边框Namenbsp;=nbsp;splashformnbsp;nbsp;nbsp;三、nbsp;程序代码解析nbsp;nbsp;nbsp;选择主菜单下的Project/Viewnbsp;Scourcenbsp;命令，打开这个项目的项目文件。根据下列代码进行修改。nbsp;programnbsp;Project2;usesnbsp;nbsp;Forms,Controls,nbsp;nbsp;Unit1nbsp;innbsp;‘Unit1.pas‘nbsp;{MainForm},nbsp;nbsp;Unit2nbsp;innbsp;‘Unit2.pas‘nbsp;{SplashForm};{$Rnbsp;*.res}beginnbsp;nbsp;Application.Initialize;nbsp;nbsp;SplashFormnbsp;:=TSplashForm.Create(Application);nbsp;nbsp;//创建splash窗体nbsp;nbsp;SplashForm.ShowModal;nbsp;nbsp;//以模式对话框的方式显示splash窗体nbsp;nbsp;ifnbsp;nbsp;(SplashForm.ModalResultnbsp;=nbsp;nbsp;mrOK)nbsp;thennbsp;nbsp;//如果定时时间到或单击了窗体上的图形nbsp;nbsp;beginnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Application.Titlenbsp;:=nbsp;‘测试Splash窗体‘;nbsp;nbsp;nbsp;//设置应用程序的标题nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Application.CreateForm(TMainForm,nbsp;MainForm);nbsp;nbsp;nbsp;//自动方式创建的主窗体nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;SplashForm.Hid