VK_ESCAPE y tsbrowser

VK_ESCAPE y tsbrowser

Postby goosfancito » Sun May 21, 2006 3:51 pm

Amigos,

Porque no aparece en pantalla el cartel HOLA cuando presiono la tecla ESC?

Code: Select all  Expand view  RUN
   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  Expand view  RUN
   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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 81 guests