窗体启动顺序

Question

请问各位大侠。我的程序首先出现一个闪屏窗体，并且在这个窗体中执行一些初始化代码。完成后再出现登录窗体。登录成功后再出现主窗体。不知道该怎么做。

Answer 1

方法很多：最好是修改工程文件
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  创建闪屏窗体；
  Frm_splash.show;
  Frm_Splash.Update;
  处理初始化代码
  Application.CreateForm(TForm1, Form1);
  Frm_Splash.Free;
  Application.Run;
end.

Answer 2

对上面代码的补充  
   Application.Initialize;
   {创建闪屏窗体}；
    Frm_splash := TFrm_splash.Create(nil);
    Frm_splash.Show;
    Frm_splash.Update;
    {处理初始化代码}
    Application.CreateForm(TForm1, Form1);
    Sleep(2000); //显示时间单位为毫秒
    Frm_splash.Hide;
    FreeAndNil(Frm_splash);
    Application.Run;

Answer 3

program Check;uses
  Forms,
  Unit1 in 'Unit1.pas' {FrmMain},
  about in 'about.pas' {FrmAbout},
  login in 'login.pas' {FrmLogin},
  reg in 'reg.pas' {FrmRegister},
  RenAntao in 'RenAntao.pas',
  Once in 'Once.pas';{$R *.res}begin
  Frmlogin:=Tfrmlogin.Create(Frmlogin);
  Frmlogin.ShowModal;
  if not isLogin then exit;  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.Run;
end.