FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour VK_ESCAPE em Button
Posts: 62
Joined: Fri Apr 28, 2006 04:06 PM
VK_ESCAPE em Button
Posted: Fri Jun 08, 2007 11:55 PM

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

Luiz Augusto

São José dos Pinhais - PR

BRASIL

fwh + harbour + workshop + velhos bat´s
Posts: 62
Joined: Fri Apr 28, 2006 04:06 PM
VK_ESCAPE em Button
Posted: Sat Jun 09, 2007 12:11 PM

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

Luiz Augusto

São José dos Pinhais - PR

BRASIL

fwh + harbour + workshop + velhos bat´s
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
VK_ESCAPE em Button
Posted: Sat Jun 09, 2007 06:44 PM

define DLGC_WANTALLKEYS 4

oBtn[ 1 ]:nDlgCode := DLGC_WANTALLKEYS

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion