Array
(
)

Pegar o left do mouse

Luiz_aquino
   - 25 nov 2005

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

valeuuuuu


Carlosrm
   - 26 nov 2005

luiz_aquino,

veja se isso serve de base...

#Código


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