Código Delphi [-] procedure TMDIForm.btCloseAllChildsClick(Sender: TObject); var i: Integer; begin for i:= MDIChildCount-1 downto 0 do MDIChildren[i].Close; end;
procedure TMDIForm.btCloseAllChildsClick(Sender: TObject); var i: Integer; begin for i:= MDIChildCount-1 downto 0 do MDIChildren[i].Close; end;