Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.
procedureForm1.Button1Click(Sender: TObject); var
foo: TPoint; begin
GetCursorPos(foo); ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')'); end
;