FoxPro/Visual FoxPro - Ayuda: ¿Cómo salir de un form al hacer click en X?

   
Vista:

Ayuda: ¿Cómo salir de un form al hacer click en X?

Publicado por Andrea (325 intervenciones) el 11/11/2008 21:28:54
Hola a todos

Le planteo la primer duda

Cuando estoy en un CUADRO DE TEXTO principal (donde ingreso el código del cliente) y el usuario presiona el botón CERRAR [ X ] del form, se ejecuta todo lo que puse en el VALID de ese Cuadro de texto, al presionar Enter.

Es decir, en el Valid del CUADRO DE TEXTO tengo el siguiente código

IF LASTKEY( )=13 &&Enter

_ IF this.value="" && vacío
__ ( ventana de consulta)
__ RETURN .T.
_ELSE
__ (buscar el código ingresado)
__ RETURN .T.
_ ENDIF

ENDIF

El problema es que cada vez que quiero cerrar la ventana desde el X (botón cerrar), aparece la ventana de consulta y no me deja salir.
Lo hice con Enter porque el cliente me lo pidió.

¿Porqué cuando salgo del CUADRO DE TEXTO toma el valor Enter por defecto? ¿Cómo se podría modificar ??

MUCHAS 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:Ayuda: ¿Cómo salir de un form al hacer click en

Publicado por enrique (1041 intervenciones) el 11/11/2008 22:19:01
pone

IF !EMPTY(THIS.VALUE)

IF LASTKEY( )=13 &&Enter

_ IF this.value="" && vacío
__ ( ventana de consulta)
__ RETURN .T.
_ELSE
__ (buscar el código ingresado)
__ RETURN .T.
_ ENDIF

ENDIF

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

RE:Ayuda: ¿Cómo salir de un form al hacer click en

Publicado por kong (681 intervenciones) el 12/11/2008 02:07:14
yo sugeriria que pases el codigo del valid al del keypress

if nKeyCode=13
hacer algo
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

RE:Ayuda: ¿Cómo salir de un form al hacer click en

Publicado por neo (1601 intervenciones) el 12/11/2008 20:02:10
estoy de acuerdo con enrique

primero valida si el textbox está vacio,

If empty(Thisform.text1.value)
&& Si está vacio que no haga nada

else

&& Codigo aqui

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