MDIChild的一个问题

Question

不知道我为什么新建一个mdichild的form却看不到。
Formmain 的 formstyle 是 mdiform
formchild 的 forstyle 是 mdichild望指教。http://my.suty.com/main.rar=======================================================================
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {FormMain},
  Unit2 in 'Unit2.pas' {FormChild};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TFormMain, FormMain);
  Application.Run;
end.
==================================================================
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ToolWin, ComCtrls;type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormMain: TFormMain;implementationuses Unit2;{$R *.dfm}procedure TFormMain.N6Click(Sender: TObject);
begin
{  if application.FindComponent('formchild')=nil then begin
  application.CreateForm(TFormChild,formChild);
  Formchild.Show;
  end;}  if application.FindComponent('formchild')=nil then begin
      application.CreateForm(TFormChild,formChild);
  end;
  Formchild.Show;//end ÒªÔÚÍâÃ棡end;procedure TFormMain.N7Click(Sender: TObject);
begin
  if application.FindComponent('formchild')=nil then begin
    formchild.Close;
    formchild.Release;
  end;
end;end.
=====================================================================
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TFormChild = class(TForm)
    RichEdit: TRichEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormChild: TFormChild;implementation{$R *.dfm}end.
=====================================================================

Answer 1

procedure TFormMain.N6Click(Sender: TObject);
var
  formchild:TFromChild;
begin
  if application.FindComponent('formchild')=nil then begin
      Formchild:=Tformchild.create(nil);
  end;
  Formchild.Show;//end 
end;

Answer 2

我原因已经找到了，是MDIForm有一个panel使得MDIChild不可见。不知出现这种情形，在不去处panel的前提下该如何解决？