关于mdi 的问题

Question

Begin  
  Application.Initialize;
  SplashForm :=TSplashForm.Create(Application);
  SplashForm.Position :=poScreenCenter;  SplashForm.BorderIcons :=[];
  SplashForm.Show;
  SplashForm.Update;
  while SplashForm.Timerformain.Enabled do
    Application.ProcessMessages;  Application.CreateForm(TFRMMDIMAIN, FRMMDIMAIN);//显现主窗口
  
  SplashForm.Hide;
  SplashForm.Free;
  Application.CreateForm(TPasswordDlg, PasswordDlg);//显现登录窗口  Application.Run;
end.
以上代码先显示SPLASH画面，然后出现登录窗口，验证通过后出现主窗口。登录
窗口的BorderStyle设为bsDiaLog,Visible设为False,当通过验证后你加上这么一句：
ModalResult := mrOk;就可以关闭登录窗口显示主窗口了。

Answer 1

你可以在主窗口show事件中showmodal(loginform)
如果不符合就结束程序

Answer 2

能在project里面加入代码吗？
to bluetooth_2001(热情的沙漠)
您的办法 我是过了 无法使用 可能是我的方法不对吧 你能在指点一下吗？