Verificar clique do mouse URGENTE
15/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
15/02/2003
Carnette
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}
Responder
16/02/2003
Nadilson
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)