Sí, creo que me pasé de escueto
. Pones, por decir algo, en el evento OnTimer:
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format('(%d, %d)', [Abs(Mouse.CursorPos.X - Left), Abs(Mouse.CursorPos.Y - Top)]);
end;
No será en
todo momento, pero puede acercarse bastante
// Saludos