Simulate Mouseclick

[gorrila]

Hi there,

I searched the whole forum, tried the examples but I didn't find a solution.
I am trying to simulate a mouseclick with Lazarus, I wrote the same program in Delphi7 and there's an easy command for that.

Code: [Select]

SetCursorPos(x, y);
//Delphi
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Does anybody know a way?

[gorrila]

Solved the problem.

[DougNettleton]

Sharing the solution would be a lot better.  Otherwise, the next person that ...

"... searched the whole forum, tried the examples but didn't find a solution."

will find this thread but still not the solution.

TIA,

Doug

[tango13]

Exactly what happened to me...
Just saying "problem solved" is of no big use in a community forum.
I'll see what I can find and eventually post my solution.

[tango13]

Well, don't know whether there are better or more elegant solutions, but one that works for me is using the mouseandkeyinput component found in the "components" folder of the lazarus source tree.

Ciao,
Piero

[cjote]

... Hi,  I want to say the solution and it is the same   

*************
var
  lPto : TPoint;
  lMou : TMouse;

begin

  lPto.x := 50;
  lPto.y := 50;
  lMou.CursorPos := lPto;

  {Simulate the left mouse button down}
   Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTDOWN,
               lPto.x, lPto.y, 0, 0) ;

  {Simulate the left mouse button up}
   Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTUP,
               lPto.x, lPto.y, 0, 0) ;

*************

Regards,
cjote

[User137]

Mouse_Event() may not be crossplatform solution, but TMouseInput is.

Open "Project Inspector" dialog, and add lazmouseandkeyinput. Then add mouseandkeyinput in your unit's uses-list. You can then use for example

Code: [Select]

MouseInput.Down(mbLeft, []);
or
MouseInput.Click(mbLeft, []);to simulate a down event. See rest of the available commands and stuff in those units.