FoxPro/Visual FoxPro - salir con click en la X

tengo un proyecto, un ejecutable
en el menu en la opcion salir le doy quit y todo acaba
pero... se acostumbra a cerrar casi siempre con click en la X de la ventana
pero nunca cierra, sale que no puede cerrarse
como hago para poder cerrar el sistema con solo click en la X
y bueno, recien estoy empezando
ayudenme xfa
saludos

Puedes crear tu propia rutina para cerrar tu aplicacion
algo asi como esto mas o menos y en tu prinipal le pones algo como esto

ON SHUTDOWN do closeapp
READ EVENTS

al final de tu programa ....

Suerte

PROCEDURE closeapp
DO CASE
CASE _SCREEN.FORMCOUNT>1
MESSAGEBOX("Existen Opciones de Menu Abiertas...",0+48,"Cerrar las Opciones en uso")
RETURN
ENDCASE
DO CASE
CASE CheckActiveForm=0

IF MESSAGEBOX("La aplicación se cerrara ! "+CHR(13)+CHR(13)+;
"Esta Ud. seguro de cerrar la Aplicación ",292,"Resuelve-Facil S.A. de C.V. [Sistemas]")<>6
oVoz=CreateObject("SAPI.SpVoice")
oVoz.Speak("Cerrando la applicacionnn")
RETURN
ENDIF
ENDCASE
ON SHUTDOWN
DO CASE
CASE !ISNULL(cBar1)
cBar1.VISIBLE=.F. && quita la barra
CASE CheckActiveForm=0
SET SYSMENU TO DEFA
_SCREEN.CAPTION="Microsoft Visual FoxPro"
ENDCASE
CLEAR EVENTS
CLEAR ALL
SET SYSMENU TO DEFAULT
CANCEL
ENDPROC

Al darle a la X en el formulario se ejecuta el Evento QueryUnload, puedes poner el codigo que deseas ahi, como por ejemplo un QUIT.

saludos...

crea un prg llámalo "Salir"

y ahí escribes este código:
close databases all
close tables all
clear all
clear events
quit

y en el prg principal, debajo de los SET

Escribe esto:
ON SHUTDOWN DO Salir.prg


A mi me funciona perfecto....

Suerte » »