Skip to main content
3 de 4
added 83 characters in body
user7605
  • 1,6mil
  • 6
  • 25
  • 49

Click do Mouse sem mover o Cursor da Tela!

Estou fazendo um sistema simples, nesse FORM tem 2 button, um que executa a função e outro que botei um SHOWMESSAGE('teste ok'); e peguei a POSIÇÃO desse segundo BUTTON, lembrando que preciso usar o SENDMESSAGE para o CURSOR do MOUSE não mover na tela, então fiz o seguinte programa:

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;

Acontece que eu clico e simplesmente não faz nada no meu FORM. O que posso estar errando?

user7605
  • 1,6mil
  • 6
  • 25
  • 49