Delphi - Conseguir la posicion del mouse
Códigos Delphi
Mostramos una de las formas para conseguir la posicion exacta del raton o mouse
Tutores.org
Mostrando Codigo - Delphi
CODIGO
<!-- Codigo ofrecido por Tutores.org -->
- Uses
- Windows;
- Procedure GetCursor(Var X,Y:Integer);
- var
- P: TPoint;
- begin
- GetCursorPos(P);
- X:=P.X;Y:=P.Y;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- Var X,Y:Integer;
- begin
- GetCursor(X,Y);
- ShowMessage(Format('%d : %d',[X,Y]));
- end;
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Conseguir la posicion del mouse" href="http://www.tutores.org/codigo/714/" target="_blank">Conseguir la posicion del mouse</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Conseguir la posicion del mouse" href="http://www.tutores.org/codigo/714/" target="_blank">Conseguir la posicion del mouse</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS