15 replies to this topic

[enecumene]

Pues eso, necesito saber como detecto el movimiento del mouse.

Saludos.

[Caral]

Hola
Yo se cuando se esta moviendo por que tengo una flechita, si se mueve en la pantalla entonces se que se mueve.
Ah, no se a ti, pero a mi se me mueve solo aveces.
Saludos

[eduarcol]

pues si esos mouse opticos tienen vida propia jajaja...


¿Pero exactamente que quieres?, ¿no te sirve el onmousemove?

[enecumene]

¿Pero exactamente que quieres?, ¿no te sirve el onmousemove?

Pues no, no me sirve, necesito determinar con un timer si el mouse está moviendose o no, si se mueve reinicia el conteo, si no avise al usuario que se ponga a trabajar .

[felipe]

Usa el GetCursorPos 

[enecumene]

Usa el GetCursorPos 

Pues tampoco me sirve, eso sólo determina la "posición" del puntero

[eduarcol]

oye, andamos perezosos hoy, si tienes la posicion anterior y la nueva, entonces puedes determinar movimiento, como decia Albertico, todo es relativo mi querido amigo

[enecumene]

He encontrado la solución, con un ApplicationEvents en su evento OnMessage:

delphi

procedure Tincio.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if
  ((Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST))
  or
  (Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST)
  then
    begin
      Contador := 0;
    end;
end;

Saludos

[felipe]

: No hay editar... mejor  

Por lo que tengo entendido esa funcion te permite saber la posicion X,Y del cursor en la pantalla, podrias jugar con el evento del timer comparando con el valor de la posicion anterior, algo asi  

[enecumene]

: No hay editar... mejor  

¿Que no puedes editar el mensaje? mmm, eso hay que verificarlo.

Saludos.

[eduarcol]

Yo puedo editar mis mensajes y como moderador el de los demas, no se con un usuario normal

[enecumene]

Ya se puede modificar para los usuarios normales .

Saludos.

[felipe]

Ya se puede modificar para los usuarios normales .

Saludos.

Claro!!! y nosotros los peones sufriendo por ello  jejejeje...

Gracias 

[cHackAll]

He encontrado la solución, con un ApplicationEvents en su evento OnMessage...

No quiero ser arqueólogo pero me parece que la solución que presentas enecumene es lo mismo a utilizar el evento OnMouseMove + OnMouseUp + OnMouseDown de un TControl, sin embargo ambas soluciones funcionan con mensajes generados y enviados solo a la ventana respectiva en posiciones relativas a la misma.

Como comenta eduarcol, GetCursorPos ha de contener la posición absoluta del puntero con lo cual una revisión constante nos dirá si el puntero ha sido movido. También se podrí­a utilizar SetWindowsHookEx para detectar los mensajes (Ej. WM_MOUSEMOVE) de todas las ventanas, o en su defecto los eventos del mismo del ratón.

Lo anterior es solo una aclaración al hilo.

[JoAnCa]

Hola enecumene
Tal vez lo que necesites sea esto http://delphi.about....bltip1104_4.htm
Es para saber el tiempo que la PC esta inactiva, pienso que esto te servirá para lo que quieres

[enecumene]

Hola enecumene
Tal vez lo que necesites sea esto http://delphi.about....bltip1104_4.htm
Es para saber el tiempo que la PC esta inactiva, pienso que esto te servirá para lo que quieres

Muy interesante el artí­culo muchas gracias José .

Saludos.