Buenas tardes,
En mi programa, desde un diálogo padre (no modal), se llama un diálogo (hijo ) no modal cuantas veces el operador lo necesite para ver , cada vez que lo llama, distintos Richedits.
Funciona todo de primera pero, (siempre hay un pero), necesitarÃa tener la opción de poder cerrar todos los diálogos hijo abiertos cuando se cierra el diálogo padre.
Como son todos NO MODAL, no se cierran automáticamente.
¿Hay forma de hacerlo?
Gracias.
Rolando 
Los diálogos hijos tienen un tÃtulo en concreto ? constante ?
#include "FiveWin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ;
ON INIT CreateNonModal() ;
ON CLICK AEval( GetAllWin(),;
{ | o | If( o:ClassName() == "TDIALOG" .and. ! o:lModal, o:End(),) } )
return nil
function CreateNonModal()
local oDlg
DEFINE DIALOG oDlg
ACTIVATE DIALOG oDlg NOWAIT
return nilAntonio,
Gracias por responder.
La cuestión es que solo tengo una ventana en todo el programa, desde los menúes de esa ventana, llamo a los distintos diálogos padre.
Lo que hice fue incluirle la lÃnea que enviaras:
AEval( GetAllWin() , { | o | If( o:ClassName() == "TDIALOG" .and. ! o:lModal, o:End(),) } )
En el valid del diálogo padre y cierra todos los diálogos abiertos pero también cierra la única ventana que es donde están los menúes, es decir, cierra el programa completamente.
Gracias.
Rolando 
Los diálogos hijos que quieres cerrar, todos tienen un control richedit ?
Si Antonio, todos tienen un Richedit y el tÃtulo es variable dependiendo del registro en el que esté posicionado la DBF.
¿Se puede cerrar un diálogo por el tÃtulo?. si fuera posible, podrÃa crear un array con los tÃtulos de los dÃalogos abiertos y, al cerrar el diálogo padre, en base al array cerrarÃa los diálogos.
Es todo hipotético, ya que no se si se podrÃa hacer.
Gracias.
Rolando