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

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

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

Недавно добавленные исходники
• Animation Loaders 875 • DeLiKaTeS Tetris (Тетрис) 5 820 • TDictionary Custom Sort 7 777 • Fast Watermark Sources 7 452 • 3D Designer 10 680 • Sik Screen Capture 8 002 • Patch Maker 8 205 • Айболит (remote control) 8 255 • ListBox Drag & Drop 7 068 • Доска для игры Реверси 100 583 • Графические эффекты 8 332 • Рисование по маске 7 707 • Перетаскивание изображений 6 313 • Canvas Drawing 6 685 • Рисование Луны 6 612 • Поворот изображения 5 755 • Рисование стержней 4 694 • Paint on Shape 3 401 • Генератор кроссвордов 4 373 • Головоломка Paletto 3 521 • Теорема Монжа об окружностях 4 331 • Пазл Numbrix 2 804 • Заборы и коммивояжеры 3 748 • Игра HIP 2 521 • Игра Go (Го) 2 521 • Симулятор лифта 2 915 • Программа укладки плитки 2 342 • Генератор лабиринта 3 082 • Проверка числового ввода 2 578 • HEX View 2 980