OnMouseDown , OnMouseUp: fora do Form

[Clark Kent]

Olá, beleza pessoal? Estou criando um programa que informa a posição do mouse, gostaria de saber como implementar o evento OnMouseDown e OnMouseUp fora do Form? Tem Como? Vlws ;)

[Jhonas]

DELPHI-Man3230/04/2004 - 17:32

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ço

[Clark Kent]

Opa! Vlws, Mas eu quero saber se Existe: OnMouseDown e OnMouseUp fora do Form,

[Jhonas]

Mas eu quero saber se Existe: OnMouseDown e OnMouseUp fora do Form

Não.

abraço