Funcion Inkey()

[jpuntoapunto]

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.

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

[mol]

you can use something like that:
ch := HMG_GetLastCharacter(@hWnd)
instead of inkey() function,
where hWnd returns handle of your active form.
Search for posts containing this function on forum

[bpd2000]

Refer
viewtopic.php?f=36&t=2894&start=10&hili ... ter#p30628
or
C:\hmg\SAMPLES\Controls\Grid\GridIncrementalSearch

[jpuntoapunto]

OK, thanks for your quick answers, mol and bpd2000.
I will seek information about it.