Página 1 de 1

Setkey()

Publicado: Mié Oct 25, 2006 1:13 pm
por Michael Hagl
Hello,
I make tests with xHarbour and have a Problem.
Why do this code not work ?? When I press the F5-key, there is no call of
the Alert()-Function.
It seems that Setkey is not evaluated inside READ.
I use xailer for compiling
Version: xHarbour build 0.99.61 Intl. (SimpLex)
***********************************************************
#include "inkey.ch"
Procedure Main()
Local cTest := Space(5)
Local getlist := {}
Setkey(K_F5,{||Alert("F5")})
@ 8,1 Say Version()
@ 10,1 Say "Test : " Get cTest
Read
Return
*******************************************************
Michael Hagl