Jump to content
Fórum Script Brasil
  • 0

Capturar Posição Do Mouse


RValentim

Question

Pessoal, sou novo na parte de programação e estou com um pequeno problema em Capturar a Posição do Mouse na Tela, qual seria a linha de comando para capturar a posição onde o mouse está parado?

Se alguém puder me ajudar com esse pequeno problema ficarei grato! biggrin.gif

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Retorna os valores em coordenadas (integer);

Mouse.CursorPos.X

Mouse.CursorPos.y

Bem simples não?

Agora que vi! Aquele ; depois de (integer), não precisava estar ali... Muito Delphi pra minha cabeça! huahuaau
Link to comment
Share on other sites

  • 0

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,

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      651.9k
×
×
  • Create New...