mouse wheel en lazarus

[anubis]

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