Capturar El Evento Onmousemove

[ANTONIOGALISTEO]

Hola.

Tengo un problema, he creado un componente de tipo TForm, en el cual quiero capturar, el evento OnMouseMove, hasta aqui todo bien.

El problema surge, cuando en el formulario existen mas componentes, como es habitual, y al pasar el raton, sobre estos el evento no me salta.

Es decir, quiero capturar desde un evento, cualquier movimiento del raton, en la ficha.

Un saludo, y gracias.

[jachguate]

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

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.

[roman]

Otra forma es colocar una componente ApplicationEvents (en la palete "Aditional") y utilizar su evento OnMessage:

if Msg.message = WM_MOUSEMOVE then
begin
  { Haz lo que tengas que hacer }
end;

// Permitir que los controles procesen
// el mensaje normalmente
Handled := false;

A diferencia de OnMouseMove del formulario, este evento se lanza incluso si el cursor del ratón pasa sobre controles.

// Saludos

[ANTONIOGALISTEO]

jachguate gracias por tu respuesta.

Pero lo que necesito es desde un solo evento, poder captura el movimiento del raton, cuando pase sobre cualiquier componente de ficha.

Esto es devido, a que la captura del raton, la tengo en un componente propio, que hereda del TForm.

Un saludo

[ANTONIOGALISTEO]

roman gracia por responder.

El metodo que tu me dices, es el que tengo implementado, pero tengo el problema, que el evento salta solo, si realizar un movimiento del raton, siempre que el puntero se encuente sobre el form.

Por esto, busca una alternativa, donde pueda resivir la posicion X e Y, del raton, comparando estas con la posición anterior.

Un saludo.