Page 1 of 1

VK_ESCAPE y tsbrowser

Posted: Sun May 21, 2006 3:51 pm
by goosfancito
Amigos,

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() ) ) , ) ) }
Ya me han dicho que pruebe haciendo esto:

Code: Select all

   obrw:bUserKeys  :={|nKey| Tufunciondecontrol(nKey)}
   
    ....

FUNCTION Tufunciondecontrol( nn )
   IF nn = VK_ESCAPE
      ? "ESCAPE"
   ELSE
         ? "CUALQUIERA"
   ENDIF

   RETURN nil
Pero reconoce "CUALQUIERA DISTINTA A LA ESC"

Gracias.