关于MDI的问题，请指教！

Question

我要在运行住窗口之前启动登陆窗体！
我的代码如下：
Application.CreateForm(TFrmLogin, Frmlogin);
FrmLogin.show
Application.CreateForm(TFrmMain,FrmMain);
可是我想用close关掉FrmLogin窗体，一关掉程序就中止了！
如果不用close Frmlogin窗体又一直存在！
请问应该如何弄？

Answer 1

第一个被Application.CreateForm()创建的窗体默认为主窗体，所以关闭它，程序就结束了1. 项目单元如下：
begin
  Application.Initialize;
  Application.ShowMainForm:=false; //程序不显示主窗口  
  Application.CreateForm(TForm_main, Form_main); //创建主窗口
  Application.Run;
end.
2. Main单元的OnCreate如下：
begin
 FrmLog:= TFrmLog.Create(Application); //创建登陆窗口
 if FrmLog.ShowModal=mrOK then self.show //登陆的密码正确，则显示自己
 else Application.Terminate; //否则，程序结束
end;
3. login单元如下：
var
  FrmLog: TFrmLog;
  ErrTime: Integer; //密码输入次数，全局变量implementation
uses Main; //引用主窗口
{$R *.dfm}procedure TFrmLog.FormCreate(Sender: TObject);
begin
 ADOQuery1.Open; //查询密码
 ErrTime:=0; //给输入密码次数赋初值
end;procedure TFrmLog.Button1Click(Sender: TObject);
begin
 if ErrTime>=2 then
 begin
  ModalResult:=mrCancel; //密码错误3次，自动关闭，给主窗口返回值mrCancel
  Exit;
 end;
 if Edit1.Text<>ADOQuery1.FieldByName('pswd').AsString then
 begin //密码错误
  inc(ErrTime);
  MessageDlg('密码错误，请重新输入！',mtWarning,[mbOK],0);
  Edit1.Text:='';
  Exit;
 end;
 ModalResult:=mrOK; //密码正确，自动关闭，给主窗口返回值mrOK
end;end.被ShowModal的窗体，只要有ModalResult:=[mrOK,mrCancel,mrAbort,..]等，就会自动关闭，并返回相应的值。如果点击右上角的X关闭之，则自动返回mrCancel。不妨把“取消“按钮的ModalResult属性设为mrCancel，这样，用户点击“取消”也会自动关闭窗口，并返回值mrCancel