Page 1 of 1

Modificando KeyDown de TwBrowse. Antonio Linares

Posted: Mon Jul 16, 2007 5:02 pm
by jhugono
Buen Día
Saludos a Todos.

Agregando. Las siguientes Líneas a la Clase Twbrowse;
De acuerdo a las recomendaciones de Antonio Linares,
Para capturar las Teclas de Movimiento.

Code: Select all

METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse

   local lRefresh

   if ::bKeyDown != nil
       Eval( ::bKeyDown, nKey, nFlags, Self )
   endif

Al hacer esto si captura las teclas de Movimiento, eso esta bien.

Pero Oprimir digamos un Enter o un Supr, lo captura DOS VECES.

Help.....

Posted: Mon Jul 16, 2007 5:18 pm
by Antonio Linares

Code: Select all

   if ::bKeyDown != nil 
       Eval( ::bKeyDown, nKey, nFlags, Self ) 
       return nil
   endif

Posted: Mon Jul 16, 2007 6:56 pm
by jhugono
Gracias Antonio Linares.

Con eso ya no se captura el Enter o el Supr dos veces, Pero ahora ya no captura las teclas como INICIO, FIN, AVPAG, y demás Teclas de movimiento.

Posted: Mon Jul 16, 2007 9:34 pm
by Antonio Linares
Ponlo al final del método

Posted: Thu Jul 19, 2007 1:40 am
by jhugono
Antonio Linares.

Si Funciono.

Saludos y Gracias ...