Pegar a posição do Mouse!

11/02/2003

21

Olá! Estou tentando inserir no meu aplicativo a seguinte situação:
Quando o usuário clicar no dbgrid vai aparecer um memo com informações a respeito do item! Tentei utilizar o ´top´ e o ´left´ do memo recebendo: top:= mouse.CursorPos.X; e left:= mouse.CursorPos.Y; Ele aparece, mas não no local que eu gostaria, que seria ao lado do mouse. Aparece em locais distantes do mouse! Se por acaso você souber como faço para fazer isto e puder me ajudar agradeço desde já! :D


Responder

Posts

11/02/2003

Carnette

Tirada do 750 Dicas e Truques em Delphi do LloydSoft

www.lloydsoft.hpg.ig.com.br


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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira