VK_ESCAPE y tsbrowser
Posted: Sun May 21, 2006 3:51 pm
Amigos,
Porque no aparece en pantalla el cartel HOLA cuando presiono la tecla ESC?
Ya me han dicho que pruebe haciendo esto:
Pero reconoce "CUALQUIERA DISTINTA A LA ESC"
Gracias.
Porque no aparece en pantalla el cartel HOLA cuando presiono la tecla ESC?
Code: Select all
oBrw: bKeyDown:= { | nKey | if( nKey == VK_ESCAPE , ( MsgInfo("HOLA")) ,;
if( nKey == VK_RETURN,;
( IF ( lVolver != .t., ( ABMProductos( , .t., PRODUCTO->CODIGO, aSetVars, .f. ), oBrw:reset(), oBrw: Refresh() ),;
oDlg:END() ) ) , ) ) }
Code: Select all
obrw:bUserKeys :={|nKey| Tufunciondecontrol(nKey)}
....
FUNCTION Tufunciondecontrol( nn )
IF nn = VK_ESCAPE
? "ESCAPE"
ELSE
? "CUALQUIERA"
ENDIF
RETURN nil
Gracias.