![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
||||
|
||||
|
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; ![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
|