Modificando KeyDown de TwBrowse. Antonio Linares

jhugono · Post by **jhugono** » Mon Jul 16, 2007 5:02 pm

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.....

Post by **Antonio Linares** » Mon Jul 16, 2007 5:18 pm

Code: Select all

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

jhugono · Post by **jhugono** » Mon Jul 16, 2007 6:56 pm

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.

Post by **Antonio Linares** » Mon Jul 16, 2007 9:34 pm

Ponlo al final del método

jhugono · Post by **jhugono** » Thu Jul 19, 2007 1:40 am

Antonio Linares.

Si Funciono.

Saludos y Gracias ...