Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE
Posted: Fri Dec 14, 2007 05:31 PM

Problemas con BKEYDOWN Y TECLA ESCAPE...

METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse

   LOCAL uRet

   If ::bKeyDown != nil                 // nuevo
      uRet := Eval( ::bKeyDown, nKey )  // nuevo
      If ValType( uRet ) == "L" .and. uRet  //-> By Antonio Linares
         Return Nil
      Endif
   Endif                                // nuevo

Maestro Antonio...

Hice esta modificacione en la CLASSE TWBROWSE y cuando hago una ACCION via BKEYDOW, ejemplo:

Code: Select all Collapse

        oLbx:bKeyDown := { | nKey |                           ;
             IF ( nKey = VK_RETURN,                           ;
                ( CLICK(), GETMOVCR( .F., CADMOVCR, CADBANCO, ;
                                          CADPARAM, CADHISBA, ;
                                          CADCUSTO, CADMOVBA, ;
                                          CADCLIEN, oLbx,     ;
                                          lBaixaDuplic := .T.,;
                                          lPesquisa := .F. ) ), ) }

Cuando se pulsa la TECLA ESCAPE para SALIR del DIALOGO, el DIALOGO se ACCIONA
DOS VECES.

Que hago mal?

Best regards.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44162