- События OnMouseDown и OnMouseUp
События 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 == mbRight) Labell->Caption = "Нажата правая кнопка мыши";
if(Button == mbMiddle) Labell->Caption = "Нажата средняя кнопка мыши";
Label2->Caption = "Координаты мыши: X="+String(X)+" Y="+String(Y);
Запустите приложение и пощелкайте разными кнопками мыши на его форме. Вы увидите сообщения программы о ваших действиях и координаты курсора мыши.
