用代码是关闭所有MDI窗口的子窗口?

                            
下面代码是关闭所有MDI窗口的子窗口。(代码是写在菜单中的)   
  我直接用一个按钮用  
  begin  
  window   lwActiveSheet,   lwNextSheet  
   
  lwActiveSheet   =   PARENTWINDOW.GetActiveSheet()  
  lwNextSheet   =   PARENTWINDOW.GetNextSheet(   lwActiveSheet   )  
  DO   WHILE   IsValid(lwNextSheet)  
  CLOSE(   lwNextSheet   )  
  lwNextSheet   =   PARENTWINDOW.GetNextSheet(   lwActiveSheet   )  
  LOOP  
  CLOSE(   lwActiveSheet   )  
  end;  
  出错!  
  是怎么用呢  
  我不知道?  
 

查看回复