Pegar o left do mouse

25/11/2005

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

valeuuuuu


Luiz_aquino

Respostas

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 Citar