Как получить координаты курсора?

В событиях формы ищем строчку OnMouseMove, кликаем два раза и пишем следующий код:

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
TPoint cPt;
GetCursorPos(&cPt);
ShowMessage(int(cPt.x)); // Возвращает x-позицию курсора мыши
ShowMessage(int(cPt.y)); // Возвращает y-позицию курсора мыши
}

Начало отчета координат курсора идёт от левого верхнего угла рабочего стола.

Подготовил материал

Табаков Юрий

Программист

Автор и редактор проекта CuBook.PRO. Главная задача, которую я ставлю перед собой – донести до начинающих программистов удобочитаемый материал. Буду рад выслушать замечания и предложения. Не забываем ставить оценки и делать репосты =)