Salir con Esc

937 views
Skip to first unread message

Juan Carlos Aguilar Apaza

unread,
Aug 30, 2010, 10:12:50 AM8/30/10
to mundovis...@googlegroups.com
Hola Gentita
Una consulta, tengo varios modulos en mi aplicacion, los cuales salen con la opcion salir, como puedo hacer para que tambien cierre el modulo presionando escape. Se que podria usar el keypress, pero este donde iria? o que otra opcion tengo?

--


Juank
===============
Juan Carlos Aguilar
===============

Jorge Javier Gutierrez

unread,
Aug 30, 2010, 10:43:05 AM8/30/10
to Mundo Visual FoxPro
Hola, si la opción salir que tienes es a través de un botón, entonces
pon la propiedad cancel=.t. al botón.



Saludos
Jorge



On 30 ago, 11:12, Juan Carlos Aguilar Apaza <juankita...@gmail.com>
wrote:

GOOD_FOX

unread,
Aug 30, 2010, 11:14:31 AM8/30/10
to Mundo Visual FoxPro
Que Tal...

Si, se puede, Configurar el KeyPreview del Form a Verdadero ( .T.)

y Luego en el Evento keypress

Colocas


DO CASE
CASE nKeycode=27
*-[ ESC ] - Para salir Del formulario
ThisForm.Release
CASE ......
CASE .......
ENDDO

¿Por que del CASE?, por que en mi caso uso varias Teclas para que
realicen una funcion, pero sino, puedes evaluar el valor con If y
listo.!!

Saludos...


Moises Daniel Vilchez Tello

unread,
Aug 30, 2010, 12:51:27 PM8/30/10
to mundovis...@googlegroups.com
creo q lo q necesitas es salir totalmente de tu sistema con al tecla esc, si utilizas un form de nivel superior como menu, te puede ayudare sto
 
init del form
ON KEY LABEL ESC _screen.activeform.salir()
 
procedimiento salir()
do close.prg
 
 
do close.prg
release all
clear events
quit

 
El día 30/08/10, GOOD_FOX <jca...@hotmail.com> escribió:
--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.

Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com



--
*Moises Daniel Vilchez Tello
Chiclayo - Lambayeque - Peru*

Daniel Manuel López

unread,
Aug 30, 2010, 10:13:15 PM8/30/10
to Zorros verdaeros
Coloca estas lineas en el Keypres del formulario
 
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
THIS.Release()
ENDIF
 
y con eso sales con escape
 
Sólo debes considerar que si estas actualizando datos, debes
de preveer esas situaciones.
 
Saludos

 
> Date: Mon, 30 Aug 2010 07:43:05 -0700
> Subject: [Mundo Visual FoxPro] Re: Salir con Esc
> From: jorgejavie...@gmail.com
> To: mundovis...@googlegroups.com

Juan Carlos Aguilar Apaza

unread,
Sep 1, 2010, 12:26:01 PM9/1/10
to mundovis...@googlegroups.com
Gracias a Todos por el aporte.
Juank

Reply all
Reply to author
Forward
0 new messages