Capturar el movimiento del mouse

[cloayza]

Averiguando un poco, en el TForm existen 3 eventos que manejan los movimientos de la rueda del mouse (Delphi 2007), estos son:

• OnMouseWheel
• OnMouseWheelDown, cuando la rueda se gira hacia abajo
• OnMouseWheelUp, cuando la rueda se gira hacia arriba...

Aquí hay un ejemplo, no lo he probado!!

Si averiguo algo mas te aviso...

[cloayza]

Aqui hay otro ejemplo...

http://www.clubdelphi.com/foros/showthread.php?t=33284

Aqui hay varios temas que tratan el asunto...
http://www.clubdelphi.com/foros/sear...archid=2317058

Saludos

[radenf]

Estimado cloaysa :

Probé lo que tú me has señalado pero no logro definir el código, producto de mi inexperiencia.
En teoría debería poder lograr esto:

Código Delphi [-]
procedure TVisor.DicomViewMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
MPRDicomImage.VerLine;
Aquí debería capturar la posición de la línea vertical y poder desplazarla hacia la derecha o hacia la izquierda
end;

¿Puedes darme otro empujón?

Saludos y muchas gracias

[radenf]

Aún no he logrado desplazar las líneas por código.
Cualquier ayuda se agradece.

Saludos