Як дізнатися координати курсору миші

Якщо вам потрібно дізнатись координати курсору миші (дізнатися в якій точці екрана знаходиться курсор), то можна використовувати наступний код:

procedure TForm1.Button1Click(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');
end;

У цьому прикладі використовується функція GetCursorPos. Вона зчитує екранні координати поточного положення курсору.