怎样关闭MDI子窗体?

解决方案 »

  1.   

    在CLOSE事件里加上action:=cafree;
      

  2.   

    OnClose中加
    Action := caFree;
    Form1 := nil;
      

  3.   

    在TMDIChildForm.FormClose()中,应当把Action参数设为caFree,以保证程序关闭时自动释放TMDIChildForm的实例。这是因为当调用Close()时,MDI子窗口并不是自动关闭的,必须在处理OnClose事件的处理过程中决定如何处理这些子窗体。处理OnClose事件的处理过程需要传递一个变量参数,该参数(TCloseAction)可以设为以下四种之一:
    CaNone         什么都不做
    CaHide         隐藏但不释放
    CaFree         释放
    CaMinimize     最小化(默认)
      

  4.   

    同意樓上
     sz1008(Need For Speed)
    的做法OnClose中加
    Action := caFree;
    Form1 := nil;