看看MDIForm的MDIChildren属性就明白了.
一个个的Close就行了.不过要在MDIChild的OnClose时间中加上一句
Action:=caFree;

解决方案 »

  1.   

    for  i:=  0  to  mdichildcount-1  do
    begin
         mdichildren[i].close ;
    end  ;
      

  2.   

    var  I: Integer;
    begin
      with Form1 do
        for I := MDIChildCount-1 downto 0 do
          MDIChildren[I].Close;end;
      

  3.   

    var 
    I: Integer; 
    begin 
    with Form1 do 
    for I := MDIChildCount-1 downto 0 do 
    MDIChildren[I].Close; 
    end; 
    //form1 就是主窗体,记住,应该是在主窗体上关闭所有的子窗体;
      

  4.   

    同意 ihihonline(小小),一定要从MDIChildCount -1 downto 0,否则会出错。
      

  5.   

    发送消息sendmessage(handle,wm_close,0,0);
    要先获得要关闭窗口的句柄