La Web del Programador: Comunidad de Programadores
 
    Pregunta:  26040 - PULSAR UN BOTON DEL RATON POR CODIGO
Autor:  Diego Suarez
Necesito pulsar el raton izquierdo del raton por codigo y no encuentro por ningun lado la forma de hacerlo, se como moverlo, pero no como simular una pulsacion en el, tanto pulsarlo como soltarlo

muchas gracias por vuestra ayuda

  Respuesta:  Israel
La solucion para eso es la siguiente.

procedure MouseLeft;
var
Pos:TPoint;
begin

GetCursorPos(Pos);

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,pos.x,pos.y,0,0);

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,pos.x,pos.y,0,0);
end;

Debes llamar al procedure MouseLeft para generar un click con el boton izquierdo en la posicion actual del raton. Para hacerlo con otro boton hay que modificar el parametro MOUSEEVENTF_LEFTDOWN y el MOUSEEVENTF_LEFTUP

Espero te vaya bien