Modificando KeyDown de TwBrowse. Antonio Linares

[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  Expand view  RUN

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

[Antonio Linares]

Code: Select all  Expand view  RUN

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


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

[Antonio Linares]

Ponlo al final del método

[jhugono]

Antonio Linares.

Si Funciono.

Saludos y Gracias ...