El scroll del mouse ?¿

[marcelinux]

Para empezar mis saludos a todos

Y ahora mi pregunta:

Como puedo saber en Delphi si el scroll del mouse se esta utilizando y en que dirección (Hacia arriba o hacia abajo), no se, alguna propiedad o algun parametro de algun evento.

gracias.

[dec]

Hola,

Si se trata de saber si la "rueda del ratón" se mueve sobre un formulario supongo que puedes hacerlo empleando los eventos "OnMouseWheel", "OnMouseWheelDown" y "OnMouseUp". Si se trata de saber si se mueve la rueda del ratón sin más... creo que también puedes conseguirlo mediante un "Hook" del ratón. Puedes buscar información sobre la función "SetWindowsHookEx()" para empezar.

[cHackAll]

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position := ScrollBar1.Position - (WheelDelta div WHEEL_DELTA);
// Handled := True; // Si quieres que el mensaje no pase a ningun componente más.
end;

0j0: OnMouseWheel