Pegar o left do mouse
25/11/2005
0
tem como pegar a posição do left do mouse onde ele estiver?
valeuuuuu
valeuuuuu
Luiz_aquino
Curtir tópico
+ 0
Responder
Posts
26/11/2005
Carlosrm
luiz_aquino,
veja se isso serve de base...
carlosrm
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
Clique aqui para fazer login e interagir na Comunidade :)