Funcion Inkey()
Posted: Tue May 17, 2016 5:01 pm
Hola.
¿Alguien me puede decir por que el siguiente ejemplo no me funciona ?.
El tema es que la funcion inkey() espera el tiempo que se le pasa como parámetro pero no detecta ni devuelve la tecla pulsada, siempre devuelve CERO.
Gracias por la atencion.
J.A.
¿Alguien me puede decir por que el siguiente ejemplo no me funciona ?.
El tema es que la funcion inkey() espera el tiempo que se le pasa como parámetro pero no detecta ni devuelve la tecla pulsada, siempre devuelve CERO.
Gracias por la atencion.
J.A.
Code: Select all
#include "hmg.ch"
#include "inkey.ch"
Function Main
DEFINE WINDOW V_Prin ;
AT 0,0 ;
WIDTH 800 HEIGHT 600 ;
MAIN
DEFINE MAIN MENU OF V_Prin
POPUP "Pruebas"
ITEM "Prueba 1" ACTION Prueba1()
ITEM "Salir" ACTION V_Prin.Release
END POPUP
END MENU
END WINDOW
ACTIVATE WINDOW V_Prin
Return Nil
Function Prueba1()
tecla := inkey(5)
msgbox(tecla) // ¿ POR QUE SIEMPRE ES CERO ?
RETURN