FoxPro/Visual FoxPro - Help... ¿Cómo evitar salir de un formulario?? =)

Hola a todos !!

En el evento KEYPRESS de un TEXTBOX de un FORMULARIO, puse esto:

- si el usuario presiona la tecla [ ESC] aparece un MESSAGEBOX preguntando si volver a empezar o si sigue.

Hasta ahí todo bien.

El problema es que si el usuario Acepta (Si), vuelve al comienzo y se posiciona en el campo inicial pero se nota que internamente guarda el valor del Esc porque directamente se va del formulario

(en el primer campo, lo definí para que si presiona Esc, salga del formulario)

¿COMO HACER PARA QUE DESAPAREZCA EL VALOR DE LA TECLA APRETADA ANTES DE QUE HAGA FOCO EN OTRO OBJETO???

Probé con CLEAR TYPEAHEAD pero es como si no lo hubiera puesto.

Espero que se entienda. SI no lo explico un poco mejor

en el Evento KeyPrees puedes asignar un valor antes de que tengas el foco del otro objeto

Suerte

hola.
no entendi por completo tu consulta pero

NODEFAULT
es para borrar el buffer del teclado

pero ten en cuenta que estas utilizando una misma tecla para 2 funciones diferentes asi que limpiar el buffer con NODEFAULT te puede afectar

- si el usuario presiona la tecla [ ESC] aparece un MESSAGEBOX preguntando si volver a empezar
IF MESSAGEBOX("Quiere reiniciar?",16+0+1,"Reiniciar") = 1
****** PROCESO DE REIINICIO
RETURN
ENDIF
************
O si sigue.
IF MESSAGEBOX("Quiere continuar?",16+0+1,"Continuar") = 1
****** PROCESO DE CONTINUAR
RETURN
ENDIF

Gracias por las sugerencias... Voy a tratar de simplificar la consulta.

Tengo un FORM con 2 TEXTBOX

1) En el primero debo ingresar el código de cliente => si el usuario presiona ESC, el formulario desaparece (En el Keypress de este objeto puse

IF nKeyCode=27 &&Esc
___Thisform.release
endif

2) En el otro TEXTBOX debo ingresar el código de producto.
Acá, si el usuario presiona ESC debe dar la alternativa de seguir o de volver al primer TEXTBOX.
En el Keypress de este objeto puse:

IF nKeyCode=27 &&Esc
___ rta=MESSAGEBOX("¿Desea salir de esta factura?",4+32+0,"Presionó ESC")
___IF rta=6 &&si
______ CLEAR typeahead
______(procedimiento donde limpio las variables y hago foco en el TEXT1)
___endif
Endif

SI PRESIONO ESC EN EL TEXTBOX2, SALE CORRECTAMENTE, PERO AL HACER FOCO EN EL TEXTBOX1, ME CIERRA EL FORMULARIO, COMO SI HUBIERA APRETADO ESC.

¿Adonde está el problema??

hola otra vez.

intenta esto.

ponga NODEFAULT justo antes de la linea donde mandas THISFORM.TEXT1.SETFOCUS

Gracias Kong, pero sigue haciendo lo mismo: sigue de largo y no para en el Textbox1, por lo que me borra el formulario.

Desde ya les agradezco cualquier idea

Andy

Utilizando la instrucción WAIT WINDOW puse carteles en todos los eventos que uso, me manera de saber si pasa o no pasa por alguno de ellos

Una vez que presiono ESC en el TEXTBOX2, cumple todo y pasa por los eventos WHEN y GOTFOCUS del TEXTBOX1 pero ahí se termina todo

No pasa por el evento VALID, KEYPRESS o el LOSTFOCUS del TEXTBOX1

Es como si le costara estacionar en TEXTBOX1.... ja ja ja (perdonen el ejemplo)

Recorrí el código pero no hay nada raro.¿Que puede ser???

Andy

proba de poner en el keypress del textbox2

IF nKeyCode=27 &&Esc
___ rta=MESSAGEBOX("¿Desea salir de esta factura?",4+32+0,"Presionó ESC")
___IF rta=6 &&si
______ CLEAR typeahead
______(procedimiento donde limpio las variables y hago foco en el TEXT1)
else
keyboard "{ctrl+0}"
___endif
Endif

Hace un seguimiento con el Debug porque tenés algo mal en el código.
Fijate cuando limpias los values de los textbox.
Tenés código en el Gotfocus del Textbox1?

relei el codigo que posteaste y note que si RTA=6 (si) borras todo y queres volver al TEXT1, no es que por SI te vas del formulario?

Hola a todos

Enrique tenés razón: me equivoqué al poner el Post. El el MESSAGEBOX real dice si quiere cancelar la factura y volver a empezar.

En cuanto al Text1, tiene código en el gotfocus porque lo cambio de color porque el usuario se quejó que no se veía el que tenía el foco.

No creo que el problema esté en Text2, porque funciona bien. Lo raro en que en el TEXT1 no quede el foco.

Trataré de utilizar el depurador, aunque no sé como hacer para ir viendo qué hace después de que el TEXT1 tiene el foco

solo inicia el depurador de manera independiente antes que la aplicacion y podras checarlo por aparte

hola,
por un acaso tienes algo en el KeyPress del Form?

Andrea te envie un ejemplo a ver si eso es lo que quieres lograr

Suerte