Capturar 'ruedita' del ratón

[Jose_Pérez]

Hola:

Algunos ratones disponen de una pequeña rueda, muy útil para realizar desplazamientos en algunos componentes. ¿Cuál es el mensaje de la API que controla este evento?.

Saludos y gracias.

[delphi.com.ar]

Podés usar el mensaje WM_MOUSEWHEEL...

TMyWinControl = class(TWinControl)
  private
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

O los evento que estan protegidos de los TWinContors: OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp...

TMyWinControl = class(TWinControl)
  published
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
  end;

Algunas clases ya los tienen publicado

[Jose_Pérez]

OK., gracias.

[metalfox6383]

Eso detecta si la ruedita ha sido girada, pero ¿cómo hace para saber si fue acia adelante o atrás?

[dec]

Hola,

(...) ¿cómo hace para saber si fue acia adelante o atrás?

Pues digo yo que "OnMouseWheelDown" indica que la ruedita se movió para abajo y "OnMouseWheelUp" lo contrario, o sea, que se movió para arriba. ¿No?

[Toni-2006]

Hola a todos. Simplemente soy un aficcionado a la programación en Delphi que, aunque estoy registrado desde el 2006, nunca he hecho uso de este foro, y ahora mismo si que necesito un poco de ayuda.

¿Que Uses debo poner para que al compilar no me de error en "WM_MOUSEWHEEL"?

Muchas Gracias.

[juanlaplata]

Código Delphi [-]
uses Messages;