SETKEY(538,{|| XXX()}) não funciona

[juniorcamilo]

boa tarde!!

utilizo o setkey(538,{|| xxx()}) mas não acessa !!
538 = CTRL_Z

desde já grato!!

[Jairo Maia]

Que key é essa? É uma key que você definiu?

Por padrão CTRL_Z é 26

[juniorcamilo]

quando teclo ctrl+z lastkey() apresenta 538

no clipper apreseta 26 mas no harbour 538!!!

[Jairo Maia]

Tem algo errado...

Compile com seu Harbour esse exemplo, tem que retornar 26:

Código: Selecionar todos

#include "inkey.ch"

Function Main()

 Clear Screen
 
 While LastKey() != K_ESC
  @ 5,10 Say "Pressione CTRL+Z"
  Inkey( 0 )
  
  If LastKey() = K_CTRL_Z
   Hb_Alert( "Você pressionou " + Hb_NToS( LastKey() ) )
  EndIf
  
 EndDo

Return Nil

[juniorcamilo]

olha ai!!
tive q ,udar um pouco o codigo seu!!

Código: Selecionar todos

While LastKey() != K_ESC
  @ 5,10 Say "Pressione CTRL+Z"
  Inkey( 0 )

  If LastKey() = 538
   Alert( "Você pressionou " + Hb_NToS( LastKey() ) )
  EndIf

 EndDo

[Jairo Maia]

Com meu Harbour se compilar seu fonte (nem compilei) vai dar RTE dizendo que a variável K_ESC não existe. Você está usando algum arquivo customizado para definição de teclas.

[juniorcamilo]

eu uso o prg do visual e o .ch onde defino essas variáveis!!!
mas estou usando exatamente seu exemplo, so mudei o K_CTRL_Z para 358!!

[Jairo Maia]

mas estou usando exatamente seu exemplo, so mudei o K_CTRL_Z para 358!!

Não foi só! Você removeu também essa chamada de include:

Código: Selecionar todos

#include "inkey.ch"

Tem como postar seu arquivo .CH de definições de teclas? Se eu ou outro colega puder podemos analisar.

[JoséQuintas]

Até pensei que poderia existir diferença na forma de uso, mas sempre o mesmo resultado.

Tá mais pro uso de inkey extendido, ou a tabela de teclas do Windows.
Tente CTRL-Z mas com cada um dos controls do teclado, o direito deve retornar diferente do esquerdo, provavelmente diferença de 10.

[juniorcamilo]

Realmente isso Eric.Developer!!
sou novo ainda na harbour, confundo bastante a questão de xharbour o harbour!!
mas fiz alteração para 538 esta funcionando perfeitamente!!
obrigado!