Mostrando Codigo - Delphi

<!-- 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;

<!-- 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 -->

Aun no existe ningun comentario para este Codigo.