FoxPro/Visual FoxPro - on error que no libera ventanas modales

   
Vista:

on error que no libera ventanas modales

Publicado por Julio Veloz Morán (5 intervenciones) el 28/01/2012 20:40:22
Hola a todos! Tengo una función que maneja los errores y se activa con el ON ERROR y que hace todos los CLEAR's, pero cuándo tengo un error en una ventana modal no libera la misma ventana ni restablece el menú ¿qué podrá ser?
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

on error que no libera ventanas modales

Publicado por Dario DAvid (321 intervenciones) el 11/04/2012 16:59:16
El clear no cierra ni libera formularios solo limpia pantallas, ventanas etc.

Para hacer eso deberias usar algo asi...

lnForms = _SCREEN.FormCount
llDone = .T.

DO WHILE lnForms > 0 AND llDone
IF TYPE("_screen.Forms(lnForms)") == "O"
lcBase = _screen.Forms(lnForms).BaseClass
IF lcBase == "Form"
_SCREEN.Forms(lnForms).Hide()
llDone = _SCREEN.Forms(lnForms).QueryUnload()
IF llDone
_SCREEN.Forms(lnForms).Release
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
ELSE
lnForms = lnForms - 1
ENDIF
_screen.Refresh()
ENDDO
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

on error que no libera ventanas modales

Publicado por Julio Veloz (5 intervenciones) el 11/04/2012 18:09:24
Gracias David, muy útil!
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