Pegar o left do mouse
tem como pegar a posição do left do mouse onde ele estiver?
valeuuuuu
valeuuuuu
Luiz_aquino
Curtidas 0
Respostas
Carlosrm
25/11/2005
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
GOSTEI 0