Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   mouse wheel en lazarus (https://www.clubdelphi.com/foros/showthread.php?t=86861)

anubis 15-10-2014 05:22:16

mouse wheel en lazarus
 
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 15-10-2014 11:28:18

Estupendo, gracias por compartirlo.


La franja horaria es GMT +2. Ahora son las 00:33:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi