mouse wheel en lazarus

[anubis]

uenas amigos,

Estuve investigando sobre como usar la rueda del raton en un dbgrid en lazarus.

En principio, en un dbgrid, si uno acciona la rueda hacia o hacia abajo, cambia de registro activo, pero no se puede operar porque no se captura el evento.

Investigando un poco este tema para lazarus encontre que, las opcionesde dbgridmousewheel no estan operativas, al menos con la ultima version de lazarus no estan.

Buscando en san google encontre una forma de incorporarlas en casi cualquier componente.

Os voy a comentar en el caso del tdbgrid.

Nos vamos a la paleta de componentes data controls, buscamos tdbgrid y, encima de el, le damos al boton derecho del mouse, nos aparecera un menu, elegimos

c:\lazarus\lcl\dbgrids.pas

Nos abre la unidad dbgrids.

Buscamos las propiedades del tdbgrid y le agregamos

Código Delphi [-]
property OnMouseWheel;
 property OnMouseWheelDown; 
    property OnMouseWheelUp;

y reconstruimos lazarus.

Ya tienen que aparecer las opciones de la rueda en el tdbgrid.

Si bien quiero aprovecha a comentar que:

Si usamos las tecla up and down con dbgrid, primero cambia de registro y ejecuta lo que haya en la procedure onkeyup o onkeydown
En el caso de onmousewheeldown o onmousewheelup, ejecuta primero lo que hay en la procedure y despues cambia de registro.

[Casimiro Notevi]

Estupendo, gracias por compartirlo.