FoxPro/Visual FoxPro - Cerrar todos los formularios activos???

 
Vista:

Cerrar todos los formularios activos???

Publicado por marco (79 intervenciones) el 10/06/2005 17:34:27
Hola tengo un formulario general, pero quiero saber si tengo varios formularios abiertos y luego presion cerrar como hago para cerrar todos los formularios y que no me ponga error al cerrar las tablas? Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cerrar todos los formularios activos???

Publicado por HROMAN (44 intervenciones) el 10/06/2005 18:48:00
Formularios abiertos

*- borrar todos los formularios de la memoria.
*- si no quedo ningun form corriendo, este metodo devuelve .t.
*- y .f. en caso de error o que no se hayan cerrado todos los formularios
*- abiertos.

Local lDevolver
DoEvents
lDevolver = .T.

For EACH oformsAbiertos IN APPLICATION.FORMS
*!* If oformsAbiertos.WINDOWTYPE = 1
*!* lDevolver = .F.
*!* Exit
*!* Endif
If !oformsAbiertos.Salir() && o .release()
*- mis forms base tienen un metodo SALIR...
lDevolver = .F.
Exit
Endif
Next
Return lDevolver
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar