2015-02-04
434
MouseDown При нажатии кнопки мыши
MouseUp При отпускании кнопки мыши
MouseMove При перемещении указателя мыши
Синтаксис:
Private Sub object_MouseDown(ByVal Button As fmButton, _
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
Private Sub object_MouseUp (ByVal Button As fmButton, _
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
Private Sub object_MouseMove(ByVal Button As fmButton,_
ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)
Аргументы:
| Button | Возвращает код (значение) нажатой кнопки мыши. Допустимые значения: - fmButtonLeft или l (левая) -fmButtonRight ИЛИ 2 (правая) -fmButtonMiddle ИЛИ 4 (средняя) |
| Shift | Возвращает код (значение) нажатой на клавиатуре клавиши. Допустимые значения: fmShiftMask ИЛИ 1 (<Shift>) fmCtrlMask ИЛИ 2 (<Ctrl>) fmAltMask ИЛИ 4 (<Alt>). |
| X и Y | Возвращает значение расстояния от левого или от верхнего края формы, рамки или страницы. При событии MouseMove этим расстоянием считается путь в направлении от левого верхнего угла элемента управления по горизонтали или вертикали |
Рассмотрим синтаксис процедур обработки событий при операциях drag-and-drop, связанных с элементами управления.
События, связанные с перемещением элемента управления
