Pegar o left do mouse

25/11/2005

0

tem como pegar a posição do left do mouse onde ele estiver?

valeuuuuu


Luiz_aquino

Luiz_aquino

Responder

Posts

26/11/2005

Carlosrm

luiz_aquino,

veja se isso serve de base...

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if button = mbRight then
      showmessage(´Pressionei o botão direito do mouse ...´+#13+13+
                   ´na coluna ´+inttostr(X)+´ e linha ´+inttostr(Y))
   else if button = mbLeft then
      showmessage(´Pressionei o botão esquerdo do mouse ...´+13+13+
                   ´na coluna ´+inttostr(X)+´ e linha ´+inttostr(Y));
end;


carlosrm


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar