登陆窗口问题!在线等!

Question

一个fsMDIForm窗体,在fsMDIForm窗体有菜单,菜单打开是许多fsMDIFormp窗体.
现在我要加一个登陆窗体,验证后,显示fsMDIForm窗体,
登陆窗体(Frm_LOGO)procedure TFrm_LOGO.Button1Click(Sender: TObject);
begin
   IF EDIT1.text = '0' then
begin
form2.ShowModal ;
Frm_LOGO.Hide ;
Frm_LOGO.Free ;
end
else 
showmessage('请正确输入密码。');
end;
procedure fsMDIForm.N2Click(Sender: TObject);
//
  begin
   if   not   assigned(form1)   then
  application.createform(tform1,form1);
  form1.Show;
      end;
出现Cannot Create form.No Mdi forms are currently active   子窗体创建不成功，错在那里呀？

Answer 1

菜单打开是许多[color=#800080]fsMDIChild窗体(不是fsMDIFormp窗体)[/color]

Answer 2

程序启动时首先创建Frm_LOGO,当登录成功后再创建其他窗体

Answer 3

  if not assigned(service)then begin
    if assigned(main.ActiveMDIChild)then begin
      main.ActiveMDIChild.Close;
    end;
    service:=Tservice.Create(self);//你错在这里，这时不能再用Application.create
    service.Show;
  end;