Как узнать текущие координаты мышки

Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 429 • TDictionary Custom Sort 5 641 • Fast Watermark Sources 5 402 • 3D Designer 7 844 • Sik Screen Capture 5 697 • Patch Maker 6 187 • Айболит (remote control) 6 195 • ListBox Drag & Drop 5 068 • Доска для игры Реверси 94 082 • Графические эффекты 6 363 • Рисование по маске 5 412 • Перетаскивание изображений 4 577 • Canvas Drawing 4 960 • Рисование Луны 4 696 • Поворот изображения 4 241 • Рисование стержней 2 987 • Paint on Shape 2 218 • Генератор кроссвордов 3 069 • Головоломка Paletto 2 412 • Теорема Монжа об окружностях 3 194 • Пазл Numbrix 2 092 • Заборы и коммивояжеры 2 739 • Игра HIP 1 716 • Игра Go (Го) 1 632 • Симулятор лифта 1 954 • Программа укладки плитки 1 685 • Генератор лабиринта 2 121 • Проверка числового ввода 1 809 • HEX View 2 070 • Физический маятник 1 809