Estou fazendo um sistema simples, nesse FORM tem 2 button, um que executa a função e outro que botei um SHOWMESSAGE('teste ok');SHOWMESSAGE('teste ok');
e peguei a POSIÇÃO desse segundo BUTTON, lembrando que preciso usar o SENDMESSAGESENDMESSAGE
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?