Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 55 Гостей: 55 Пользователей: 0
|
|
Каталог статей
Узнать координаты мышки средствами Delphi
Timer(System) Label(Standart)
Caption Labela очищаем вовсе.
В обработчика событий Timer OnTime пишем:
var foo: TPoint; begin GetCursorPos(foo); label1.caption:=('(x' + IntToStr(foo.X) + ' , y' + IntToStr(foo.Y) + ')');
Интервал Timer'a ставим равным единице
Ну вот вроде бы и все))) Оставляем комментарии и оцениваем примеры))))
|
|
Просмотров: 498
| Рейтинг: 1.0/
6
Оштрафовать
| Жаловаться на материал |
|
|