delphi 创建启动窗体

 

 

Delphi在启动时会首先显示一个图片，等到将所有的初始化工作全做完后该图片自动消失。为达到这一效果，建立一个示例程序。  
  　　建立一个新Application，包括两个Form，其中Form1为主窗口，Form2为要显示的图片Form，不妨将Form2的边框类型设为无，同时在Form2中加入一个TImage类的构件Image1，Align属性为Client，AutoSize设为True，然后为Image1指定任意一个图片。  
  　　选Project1/Options菜单，点取Application页，将Form2从左边列表框中移到右边列表框，这样Project1.dpr源程序就不会生成建立Form2的代码。下一步是手工修改Project1.DPR源代码，因为Form2应该在Form1之前建立并显示，但不能使用Application的CreateForm方法（第一个用此方法建立的Form被认为是主Form），具体的代码如下，当运行至Application.CreateForm(...)一行时Form2已经建立并显示出来，然后该行建立主Form并激发主Form的OnCreate事件，你可以在OnCreate事件处理过程中完成你的初始化工作。  
   
  Project1.dpr   program   Project1;  
   
  uses  
      Forms,  
      Unit1   in