为什么程序在运行时建立一个窗体，有的窗体什么提示个对话框?

Question

procedure TForm_main.menuClick(Sender: TObject);
var founded:boolean;
    I:integer;
begin
Founded:=False;
for i:=MDIChildCount-1 downto 0 do
  if MDIChildren[i].ClassName='TForm_llq_Fcckdj' then
      begin
        //MDIChildren[i].show ;
        Founded:=True;
        break;
      end;
  if Not Founded then
    begin
      Form_llq_Fcckdj:=TForm_llq_Fcckdj.Create(application);         //程序运行到这名时，就出现我以上听的提示对话框。
    end;
  Form_llq_Fcckdj.show;
  if Form_llq_Fcckdj.WindowState =wsMinimized then
     Form_llq_Fcckdj.WindowState :=wsNormal;
end;

Answer 1

在project  options 中将该窗体从左边列表中加入到右边列表

Answer 2

我已经把它放到右边了。左边只有一个MID窗体。
在右边的全部是子窗体。

Answer 3

TForm_llq_Fcckdj.Create(application); 
                        ~~~~~~~~~~~~~改成SELF试试！

Answer 4

改成：
TForm_llq_Fcckdj.Create(SELF);
还是不行.

Answer 5

快
就是只一两个子窗体出现以上错误，
其它的有十多个子窗体都是一样的方法创建也没事。
到底是为什么？
关闭窗体时一定要这句吗？
Form_llq_Fcckdj:=nil;
我的其它的子窗体都没有这句哦。[:

Answer 6

关闭窗体时
onclose 中窗体名.close
ondestroy中 窗体名：=nil

Answer 7

TForm_llq_Fcckdj这是一个子窗体。