Skip to main content
!?
Fonte Link
brasofilo
  • 6,7mil
  • 5
  • 30
  • 50

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');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?

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?

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?

added 83 characters in body
Fonte Link
user7605
  • 1,6mil
  • 6
  • 25
  • 49

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?

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, 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?

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?

added 19 characters in body
Fonte Link
AndersonBS
  • 3,2mil
  • 3
  • 24
  • 44

veja o que eu fiz de errado.

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, 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;

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  ?

veja o que eu fiz de errado.

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, 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  ?

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, 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?

Fonte Link
user7605
  • 1,6mil
  • 6
  • 25
  • 49
Carregando