新手问题，搞定马上给分，在线等待？

Question

本人建了三个窗体：
1、FrmSplash
2、FrmLogin
3、FrmMain
一个DataModal
现在本人想在程序的执行过程中
要求：
最先启动：
FrmSplash
然后再启动
FrmLogin
最后再启动
FrmMain
主窗体是FrmMain
可用窗体是
FrmLogin与FRMSPLASH
用其他方式也可，只要达到功能就OK(原代码)。

Answer 1

Application.Initialize;
  application.createform(Tfrmsplash,frmsplash)
  frmsplash.show;
  Application.CreateForm(Tmd, md);
  Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tfrmlogin, frmlogin);
  frmsplash.update;
  frmsplash.close;
  frmlogin.ShowModal  ;
  Application.Run;
  end ;

Answer 2

Application.Initialize;
  Application.CreateForm(Tfrmmain, frmmain);
  application.createform(Tfrmsplash,frmsplash)
  frmsplash.show;
  frmsplash.update;
  Application.CreateForm(Tmd, md);
  Application.CreateForm(Tfrmlogin, frmlogin);
  frmsplash.close;
  frmlogin.ShowModal  ;
  Application.Run;
  end ;

Answer 3

老兄，这样也可以看见Frmmain窗体。我要求不要见到Frmmain

Answer 4

Application.Initialize;
  frmsplash:= Tfrmsplash.Create(Application);
  frmsplash.Show;
  frmsplash.Update;
  frmsplash.Refresh;
  Application.ProcessMessages;
  DataModule:= TDataModule.Create(Application);
  frmLogin := TFrmLogin.Create(Application);
  frmLogin.ShowModal;
  Application.CreateForm(TFrmMain, FrmMain);
  frmsplash.Hide;
  frmsplash.Close;
  Application.Run;

Answer 5

然后在FrmMain 的show 事件里：
FrmLogin := TFrmLogin.create(self);
try
  FrmLogin.ShowModal;
finally
  FrmLogin.Free;
end;

Answer 6

同意xylyge(没有恋爱过) 的说法

Answer 7

把FrmLogin的创立放到FrmMain的OnCreate事件中！