Page 1 of 1

cerrar todos los dialogos abiertos

PostPosted: Sun Mar 02, 2008 10:42 pm
by rolando
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 :D

PostPosted: Sun Mar 02, 2008 11:44 pm
by Antonio Linares
Los diálogos hijos tienen un título en concreto ? constante ?

PostPosted: Sun Mar 02, 2008 11:50 pm
by Antonio Linares
Aqui tienes un ejemplo genérico que cerraría todos los diálogos no modales:
Code: Select all  Expand view
#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 nil   

PostPosted: Mon Mar 03, 2008 12:20 am
by rolando
Antonio,

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 :?

PostPosted: Mon Mar 03, 2008 10:21 am
by Antonio Linares
Los diálogos hijos que quieres cerrar, todos tienen un control richedit ?

PostPosted: Mon Mar 03, 2008 1:09 pm
by rolando
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 :D