Podes asociar el método FormMouseMove a los eventos OnMouseMove de todos los controles. Eso si, las coordenadas x,y iran en relación al control donde se mueve el mouse y no al formulario, pero es facil convertir las coordenadas con la formula
Código:
if Sender <> Self Then
Begin
Coordx := x + (Sender as TControl).Left;
CoordY := y + (Sender as TControl).Top;
End
Else Begin
CoordX := x;
CoordY := y;
End;
Hasta luego.
