Foros Club Delphi - Capturar 'ruedita' del ratón

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Capturar 'ruedita' del ratón (https://www.clubdelphi.com/foros/showthread.php?t=256)

Jose_Pérez

09-05-2003 11:24:58

Capturar 'ruedita' del ratón

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

09-05-2003 16:42:04

Podés usar el mensaje WM_MOUSEWHEEL...

Código:

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

Código:

TMyWinControl = class(TWinControl)

  published

    property OnMouseWheel;

    property OnMouseWheelDown;

    property OnMouseWheelUp;

  end;

Algunas clases ya los tienen publicado

Jose_Pérez

12-05-2003 09:14:32

OK., gracias.

metalfox6383

03-07-2006 16:51:53

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

dec	03-07-2006 18:45:13

Hola,

Cita:

(...) ¿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

11-04-2008 11:22:52

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

11-04-2008 14:08:10

Código Delphi [-]uses Messages;

La franja horaria es GMT +2. Ahora son las 08:49:49.