Simular tecla

[Anderson J. Freitas]

No clipper, é possível simular o acionamento de uma tecla ?

o q estou querendo é o seguinte :

do while .t.
@ 08,18 prompt ' TELA I '
@ 08,col()+2 prompt ' TELA II '
@ 08,col()+2 prompt ' TELA III '
@ 08,col()+2 prompt 'Gravar'
@ 08,col()+2 prompt 'Cancelar'
menu to s_prog
do case
case s_prog = 1
TELAIV = sombra(9,4,22,76)
TELAI()
rests(TELAIV)
case s_prog = 2
TELAIV = sombra(9,4,22,76)
TELAII()
rests(TELAIV)
case s_prog = 3 .and. mpesavel='S'
TELAIV = sombra(9,4,22,76)
TELAIII()
rests(TELAIV)
case s_prog = 4
ret = 0
exit
case s_prog = 5 .or. lastkey() = K_ESC
aqui-------->
"Se o digitador escolher 'Cancelar', simular o prescionamento da tecla ESC"

ret = 1
exit
endcase
enddo

Tem jeito ? Já tentei : keyboard chr(27), inkey() = chr(27),inkey(27) nada funcionou.

[Alessandro]

Coloque no inicio de seu prg

#include "INKEY.CH"

aí deve funcionar o
keyboard chr(27)



OK..

[MARINI]

No clipper, é possível simular o acionamento de uma tecla ?


aqui-------->
"Se o digitador escolher 'Cancelar', simular o prescionamento da tecla ESC"


Para carregar o buffer do teclado com uma tecla que não foi digitada
use o

keyboard(tecla)
inkey()

Apesar de você ter afirmado que já fez assim mas não deu certo
mesmo assim o correto será desta forma.

Teste:

DO WHILE .T
INKEY(0)
@ 1,5 SAY LASTKEY()
KEYBOARD CHR(27)
INKEY()
@ 2,5 SAY LASTKEY()
ENDDO