FoxPro/Visual FoxPro - Messagebox para cerrar un formulario

 
Vista:

Messagebox para cerrar un formulario

Publicado por Juan (503 intervenciones) el 23/04/2002 11:23:05
Quiero poner a un formulario de nivel superior un messagebox para cerrarr cuando pulse la "X" de la ventana, que cuando pulse "SI" cierre todo, pero que cuando pulse "NO" vuelva al formulario.
Quizas tenga que GUARDAR algo antes y luego REVERTIR pero no se como se hace.

En el Evento Destroy tengo el siguiente procedimiento:
if messagebox("¿Desea salir?",4+32+256,"Salir")=6
on shutdown
clear all
quit
else
return
endif

pero no me funciona cuando pulso "NO".

Gracias de antemano.
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:Messagebox para cerrar un formulario

Publicado por Luis Soto (14 intervenciones) el 23/04/2002 17:58:52
Juan:

Esta bien como planteas lo que queres hacer, pero el metodo adecuado para hacerlo es el metodo QUERYUNLOAD del Form.
El evento QUERYUNLOAD se dispara cuando se intenta cerrar el form con el botón X del form o cuando se ejecuta RELEASE.
En el metodo QUERYUNLOAD pode ingresar el código que vos tenes, de la siguiente manera:
if messagebox("¿Desea salir?",4+32+256,"Salir")=6
on shutdown
clear all
quit
RETURN .T. && permite desactivar el form
else
NODEFAULT && permite desactivar el form.
endif
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