求就，急急急。。。怎样在程序中动态地创建启动画面？

Question

去看一下Demos\Db\Mastapp\之DEMO吧。

Answer 1

建一个启动封面窗体，假设为Form2，先设置好BorderIcons、BorderStyle、FormStyle、Position，接着在窗体上加入图片框、文本框，设置好后在菜单里选Project里的Options，把Form2从Auto-create forms里转到Available forms。再接着就是按Ctrl+F12键，选Project1，出现工程单元，其内容如下
...
Application.CreateForm(TForm1, Form1);
Application.Run;
..
　　在Application.CreateForm(TForm1, Form1); 前加入如下语句：
form2:=tform2.create(application);
form2.Show;
form2.Update;
　　然后在Application.Run;前面加入如下语句：
form2.hide;
form2.free;

Answer 2

在工程文件中修改如下： 
Application.Initialize;
 SplashForm:=TSplashForm.Create(SplashForm);//启动画面窗体
 SplashForm.Show;
 SplashForm.Update;
  Application.CreateForm(TDataForm, DataForm);
  //以及其他窗体
 SplashForm.free;
   Application.Run;

Answer 3

1.Splash单元unit SplashFrm;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TSplashForm = class(TForm)
    imgSplash: TImage;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    tmMainTimer: TTimer;
    procedure tmMainTimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  SplashForm: TSplashForm;implementation{$R *.DFM}procedure TSplashForm.tmMainTimerTimer(Sender: TObject);
begin
  tmMainTimer.Enabled := False;
end;end.
2。工程单元
program splash;uses
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm},
  SplashFrm in 'SplashFrm.pas' {SplashForm};{$R *.RES}
begin
  Application.Initialize;
  { Create the splash screen }
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;   // Display the splash screen
  SplashForm.Update; // Update the splash screen to ensure it gets drawn  { This while loop simply uses the TTimer component on the SplashForm
    to simulate a lengthy process. }
  while SplashForm.tmMainTimer.Enabled do
    Application.ProcessMessages;  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Hide;  // Hide the splash screen
  SplashForm.Free;  // Free the splash screen
  Application.Run;
end.