Delphi中如何实现启动界面？

Question

如题，谢谢！

Answer 1

在工程文件：
  Application.Initialize;
  frmFlash:=TfrmFlash.Create(nil);//启动界面
  try
    frmFlash.Show;
    frmFlash.Update;
  finally
    frmFlash.Free;
  end;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;

Answer 2

frmStart :=TfrmStart.Create(Application );
frmStart.Show ;   //显示启动窗体
for start_i:=0 to 100 do
begin
  Application.ProcessMessages ; //控制权转让
  Sleep(20);//暂停20毫秒
end;
frmStart.Free ;
frmMain:=TfrmMain.Create(Application );
frmMain.show;

Answer 3

在工程文件dpr中写类似下面的代码
begin
  Application.Initialize;
  Application.Title := '管理系统';
  Application.CreateForm(TDataModule1, DataModule1);
  F_Flash:=TF_Flash.Create(Application);
  F_Flash.Show;
  F_dl:=TF_dl.Create(Application);
  F_dl.ShowModal;
  Application.Run;
end.

Answer 4

begin
  Application.Initialize;
  SPLASHFORM := TSPLASHFORM.Create(Application);//启动界面的窗体
  SPLASHFORM.Show;
  SPLASHFORM.Update;
  Application.CreateForm(TLogin, Login);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMainM, MainM);
  Application.CreateForm(Tquerry, querry);
  Application.CreateForm(Taddn, addn);
  Application.CreateForm(Tmodifyn, modifyn);
  Application.CreateForm(Tdeln, deln);
  SPLASHFORM.Hide;
  SPLASHFORM.Free;
  Application.Run;
end.