Узнать координаты мышки средствами Delphi - Примеры на Delphi7 - Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Примеры на Delphi7 [110]

Помощь по Delphi [12]

Описание процедур и т.п. на Delphi [7]

Главная » Статьи » Delphi » Примеры на Delphi7

Узнать координаты мышки средствами 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 ставим равным единице

Ну вот вроде бы и все))) Оставляем комментарии и оцениваем примеры))))

Категория: Примеры на Delphi7 | Добавил: DelphiAiX (06.05.2011)

Просмотров: 1581 | Рейтинг: 5.0/1

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума