Pegar a posição do Mouse!
11/02/2003
0
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
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
Anonymous
Curtir tópico
+ 0
Responder
Post mais votado
11/02/2003
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
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
Carnette
Responder
Clique aqui para fazer login e interagir na Comunidade :)