Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:42 PM
Начало » Статьи » Работа с мышью

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

procedure Form1.Button1Click(Sender: TObject);

var

foo: TPoint;

begin

GetCursorPos(foo);

ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');

end;

Категория: Работа с мышью | Добавил: Admin (2006-12-17) | Автор: delphi
Просмотров: 4069 | Комментарии: 2 | Рейтинг: 5.0 |

Всего комментариев: 2
0
2 Стасон   [Материал]
Так и должно быть. Просто вычти коры экрана, и будет тебе коры мыши относительно формы.

0
1 Жека   [Материал]
Почему то координаты вычисляются не относительно формы, а относительно всего экрана!!!! помогите плз

Имя *:
Email *:
Код *: