VK_ESCAPE em Button

[laugusto]

Buenas Noites,

Antonio, estou com o seguinte problema em um BUTTON

REDEFINE BUTTON oBtn[ 1] ID 635 OF oMap30;
ACTION( pPR_A_COD := TMP1,;
TESTE2( oWnd, oAgen, oMap30, pPR_A_COD ) )

oBtn[ 1]:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( Ver_Tecla1() ), nil ) }

Gostaria de usar a TECLA ESCAPE, mas não FUNCIONA de jeito nenhum, estou compilado com FWH2.7 + harbour46.
Poderia me ajudar me dizendo como posso fazer o ESCAPE funcionar ?

Gracias de Antemano,

Luiz Augusto
São José dos Pinhais - PR
Brasil

[laugusto]

Disculpa si no es mui bueno mi espanhol, necesito de capturar el
VK_ESCAPE en um button, vea abajo el ejemplo:

REDEFINE BUTTON oBtn[ 1] ID 635 OF oMap30;
ACTION( pPR_A_COD := TMP1,;
TESTE2( oWnd, oAgen, oMap30, pPR_A_COD ) )

oBtn[ 1]:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( Ver_Tecla1() ), nil ) }

no logro exito, podem me ajudar?

Gracias de Antemano,

[]´s

[Antonio Linares]

#define DLGC_WANTALLKEYS 4

oBtn[ 1 ]:nDlgCode := DLGC_WANTALLKEYS