Una de TWBrowse

[Willi Quintana]

Hola Amigos.
Intento "detectar" el movimiento del cursor a la derecha e izquierza en un TWBrowse, bKeyDown no detecta cuando presionas las teclas de navegacion derecha e izquierza, hay alguna manera de detectar que estas teclas fueron presionadas? <- ->

Salu2

[Antonio Linares]

Willi,

Tienes que modificar la clase y añadirle esto antes del do case:

Code: Select all  Expand view  RUN

METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse

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

   do case
      case nKey == VK_UP
           ::GoUp()


[Willi Quintana]

Gracias,,, funciona
Salu2