En el programa MAIN definimos una variable MEMVAR, en mi caso lSalPitando y ponemos las siguientes lineas.
MEMVAR lSalPitando
// -> PROCEDIMIENTO PARA ACTIVAR LAS TECLAS DE FUNCION
CREATE EVENT PROCNAME MyFuncKey ()
Que quedaría una cosa así....
Code: Select all
// --> MENU PRICIPAL PARA LA APLICACIÓN
// ------------------------------------------------------------------------
#include "hmg.ch"
#include "_dbf.ch" //--> CONTROL DE BASE DE DATOS -> DEFINES
//--> Esta es la variable que utilizo para controlar la tecla ESC
MEMVAR lSalPitando
// -> PROCEDIMIENTO PARA ACTIVAR LAS TECLAS DE FUNCION
CREATE EVENT PROCNAME MyFuncKey ()
DEFINE WINDOW Principal ;
AT 1,1 ;
WIDTH 640 ;
HEIGHT 180 ;
bla/bla/bla y más bla
RETURN
//-----------------------------------------------------------------
//---> FUNCION QUE DISPARA LA TECLA ESC.
//-----------------------------------------------------------------
// --> Esta función la pones en el programa principal, al igual que la MEMVAR y el CREATE EVENT
Function MyFuncKey ()
IF CASE HMG_GetLastVirtualKeyDown () == VK_ESCAPE
lSalPitando:=.F.
ENDIF
HMG_CleanLastVirtualKeyDown()
RETURN
Después en nuestro blucle DO WHILE
Code: Select all
lSalPitando:=.T.
DO WHILE !EOF() .AND. lSalPitando
// ---> a listar
ENDDO