关于MDI窗体的问题

Question

有三个窗体:
 登陆窗体 Login
 主窗体   MDIForm1
 子窗体   MDIForm2现在运行的顺序是： 1，先打开登陆窗体 Login;
 2，按登陆窗体的“确定”后找开主窗体，同时打开主窗体的子窗体面是如何实现呢？下面是我的代码：
 Project里的代码:
  Application.Initialize;
    login1:=Tlogin1.create(application); //F_login.visible:=false
    if login1.ShowModal=mrOK then
      begin
        Application.CreateForm(TForm1, form1);
        login1.Free;
        Application.Run;
      end
    else
      begin
        login1.Free;
        application.Terminate;
      end;登陆窗体的确定代码:
 ModalResult := mrOK;
主窗体From1的OnCreate代码    if Form2 = nil then begin
       Form2 := TForm2.Create(form2);
      end;
     Form2.Show;可是运行上面主窗体的代码出现以下错误：
[red]"Cannot create form .No MDI forms are currently active"[/red]也就是在主窗体(MDI窗体)显示同时显示子窗体,出错~~哪位高手能不能提供这三个窗体运行过程的具体代码？谢谢~~

Answer 1

if Form2 = nil then 
    begin
       Form2 := TForm2.Create(form2);
      
       Form2.Show;
    end;

Answer 2

可以这样:
Application.CreateForm(TForm1, form1);
Application.CreateForm(TForm2, form2);
或者在Form1的OnActive中Create Form2不要在 Form1 的OnCreate中创建Form2

Answer 3

Yeah~~
  雪夜兄厉害~~这个问题问了半个月，可能以前表达不太明白，所以到今天才得到解决，谢谢~~