Verificar clique do mouse URGENTE
Gostaria de obter informações sobre uma função que reconheçar o clique do mouse em qualquer
lugar do desktop, esta função seria colocada dentro de um componente timer para que fique
automaticamente ativa e verificando constantemente o clique do mouse em qualquer lugar da
tela, mesmo sendo este clique fora do form onde foi colocado o componente timer com
a referida função.
Espero contar com uma boa colaboração para esta simples duvida ou ate mesmo talves seja
um grande
problema.
lugar do desktop, esta função seria colocada dentro de um componente timer para que fique
automaticamente ativa e verificando constantemente o clique do mouse em qualquer lugar da
tela, mesmo sendo este clique fora do form onde foi colocado o componente timer com
a referida função.
Espero contar com uma boa colaboração para esta simples duvida ou ate mesmo talves seja
um grande
problema.
Anonymous
Curtidas 0
Respostas
Carnette
15/02/2003
Como pegar a posição do mouse na tela
Para obter os valores das coordenadas do mouse de qualquer parte da tela, basta que se utiliza a função da API do Windows GetCursorPos. Esta função é interessante pois oferece ao programador os valores (x,y) de qualquer ponto da tela e não somente da aplicação.
Para implementação, esta função pode ser utilizada da seguinte maneira:
procedure TForm1.Timer1Timer(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt); // Pega a posição atual do mouse;
//Mostra os valores das coordenadas do mouse
label1.caption := IntToStr(pt.x) + ´,´ + IntToStr(pt.y);
end;
Esta é mais uma das milhares de funções da API do Windows.
Abraços,
Alessandro F. Leite
{Dica retirada do Site Delphi Journal}
Para obter os valores das coordenadas do mouse de qualquer parte da tela, basta que se utiliza a função da API do Windows GetCursorPos. Esta função é interessante pois oferece ao programador os valores (x,y) de qualquer ponto da tela e não somente da aplicação.
Para implementação, esta função pode ser utilizada da seguinte maneira:
procedure TForm1.Timer1Timer(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt); // Pega a posição atual do mouse;
//Mostra os valores das coordenadas do mouse
label1.caption := IntToStr(pt.x) + ´,´ + IntToStr(pt.y);
end;
Esta é mais uma das milhares de funções da API do Windows.
Abraços,
Alessandro F. Leite
{Dica retirada do Site Delphi Journal}
GOSTEI 0
Nadilson
15/02/2003
Fala, Caldeira!
Dá uma olhadinha nesses links:
How to trap mouse clicks on the Desktop when using a system wide mouse hook
(Como armadilhar* cliques do mouse no Desktop usando um monitoramento do mouse em todo o sistema)
http://www.lmc-mediaagentur.de/dpool/tips/0810.htm
How to trap mouse clicks on the Desktop
(Como armadilhar cliques do mouse no Desktop)
http://www.lmc-mediaagentur.de/dpool/tips/0801.htm
Espero ter ajudado...
P. S.: Armadilhar = software ou hardware que capta alguma coisa como uma variável, falha ou valor dentro do Sistema Operacional.
Dá uma olhadinha nesses links:
How to trap mouse clicks on the Desktop when using a system wide mouse hook
(Como armadilhar* cliques do mouse no Desktop usando um monitoramento do mouse em todo o sistema)
http://www.lmc-mediaagentur.de/dpool/tips/0810.htm
How to trap mouse clicks on the Desktop
(Como armadilhar cliques do mouse no Desktop)
http://www.lmc-mediaagentur.de/dpool/tips/0801.htm
Espero ter ajudado...
P. S.: Armadilhar = software ou hardware que capta alguma coisa como uma variável, falha ou valor dentro do Sistema Operacional.
GOSTEI 0