Разделы инструкций

В сети

Пользователей: 133
Из них просматривают:
Аналоги: 50. Видео: 1. Даташиты: 29. Инструкции: 6. Новости: 20. Остальное: 8. Программы: 1. Профиль пользователя: 5. Расчёты: 1. Теги: 1. Торрент: 1. Форум: 7. Чат: 3.
Участников: 5
Гостей: 128

an , KT315 , Google , wolf170571 , Яндекс , далее...
Рекорд 2375 человек онлайн установлен 26.12.2015.

Партнёры


Партнёры

Новые объявления

Оглавление

События OnMouseDown и OnMouseUp

Событие OnMouseDown наступает в момент нажатия пользователем кнопки мыши над компонентом. Имеется также парное к нему событие OnMouseUp, наступающее при отпускании нажатой кнопки мыши над объектом.

 

Обработка событий OnMouseDown и OnMouseUp используется для операций, требуемых при нажатии и отпускании пользователем какой-либо кнопки мыши. Обработчики этих событий имеют параметры Sender, Shift, Button, X и Y. С первыми двумя параметрами мы уже знакомы из описания предыдущих событий. Значения параметра Button определяют, какая кнопка мыши нажата: mbLeft — левая, mbRight — правая, mbMiddle — средняя. Параметры X и Y определяют координаты указателя мыши в клиентской области компонента.
Создайте новое приложение и поместите на его форму два компонента Label. Для формы Form1 создайте обработчик события OnMouseDown и введите в него следующие строки программного кода из листинга 22.5.

 

Листинг 22.5. Обработчик события OnMouseDown

 

if(Button == mbLeft) Labell->Caption = "Нажата левая кнопка мыши";

if(Button == mbRight) Labell->Caption = "Нажата правая кнопка мыши";

if(Button == mbMiddle) Labell->Caption = "Нажата средняя кнопка мыши";

Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);

 

Запустите приложение и пощелкайте разными кнопками мыши на его форме. Вы увидите сообщения программы о ваших действиях и координаты курсора мыши.

Комментарии принадлежат их авторам. Мы не несем ответственности за их содержание.
Отправитель Нити

Разное

Паяльник в дежурном нагреве включайте через диод, этим Вы значительно продлите ему жизнь.

Интересно

Если "ревёт" один из дросселей резонансного стабилизатора, забейте деревянный клин между его катушками.

Похожие инструкции