Mouse Click without moving the Screen Cursor

Question

Mouse Click without moving the Screen Cursor

Navigation

#1 by (3 votes)
#2 by (1 votes)
#3 by (1 votes)

1

I am doing a simple system, in this FORM has 2 button, one that executes the function and another that I put a SHOWMESSAGE('teste ok'); and I got the POSITION of that second BUTTON, remembering that I need to use SENDMESSAGE for the CURSOR of the MOUSE move on the screen, then did the following program:

Procedure SendMouseClick(x,y:Integer);
var
h:THandle;
begin
h := FindWindow(nil, 'TForm1');
SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, MAKELPARAM(x,y));
sleep(10);
SendMessage(h, WM_LBUTTONUP, MK_LBUTTON, MAKELPARAM(x,y));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMouseClick(1042,538);
end;

It turns out that I click and simply do nothing in my FORM. What can I be wrong?

delphi

asked by anonymous 12.04.2014 / 22:28

3 answers

Working using Thread Dictionary for objects in Python

score 3 · Answer 1

Maybe I misunderstood, but from what I understand you just want to trigger the click function of the 2nd button. If this is it, just call the function directly. Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2Click(Sender);  // pode ser chamada em qualquer lugar, em uma outra função, em um timer, em um evento OnClick do form...
  // Se for o caso em algumas funções não terás o Sender, basta substituir por qualquer outro objeto. Sender identifica que objeto está "disparando" o click.
end;

score 1 · Answer 2

Try using Mouse_Event

{Move mouse}

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, COORDENADA X, COORDENADA Y, 0, 0);

{Simulates mouse-click button}

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, COORDENADA X, COORDENADA Y, 0, 0);

{Simulate by releasing the left mouse button}

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, COORDENADA X, COORDENADA Y, 0, 0);

Fote: link

score 1 · Answer 3

In event OnClick of Button1 put the following code:

SendMessage(Button2.Handle, WM_LBUTTONDOWN, MK_LBUTTON, 0); 
SendMessage(Button2.Handle, WM_LBUTTONUP, MK_LBUTTON, 0);

This will mean that when you click on Button1 the message will be sent to WM_LBUTTONDOWN " to the handle of Button2 . The message WM_LBUTTONDOWN is used when press the left mouse button, the

13.04.2014 / 02:30