|
|
|
|
Наступает при прокрутке колеса мыши вверх или вниз.
Синтаксис
| function OnMouseWheel(
| | Sender, | | Shift, | | Delta, | | MousePos, | | Handled
| | );
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Sender
| TComponent
| дескриптор визуального компонента
|
| Shift
| Enumset
| состояние управляющих клавиш (см. ниже)
|
| Delta
| Number
| направление прокрутки (см. ниже)
|
| MousePos
| TPoint
| координаты указателя мыши
|
| Handled
| Boolean
| прекратить дальнейшую обработку текущего события.
Handled.Value=true - прекратить (значение по умолчанию - false)
|
|
| Параметр Shift
|
| Значение
| Описание
|
| ssAlt
| клавиша Alt
|
| ssCtrl
| клавиша Ctrl
|
| ssShift
| клавиша Shift
|
|
| Параметр Delta
|
| Значение
| Описание
|
| положительное
| прокрутка вверх
|
| отрицательное
| прокрутка вниз
|
|
// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие визуальных компонентов OnMouseWheel";
frm.Width =450;
frm.Height=300;
frm.OnMouseWheel=frm_MouseWheel;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Крутите колесо мыши в области формы";
// Метка
lbl=new TLabel(frm);
lbl.Caption="Метка";
lbl.Left=(frm.ClientWidth-lbl.Width)/2;
lbl.Top =(stb.Top-lbl.Height)/2;
frm.ShowModal();
// Обработчик события OnMouseWheel
function frm_MouseWheel(frm,sft,dlt,pos,handled)
{
if (dlt>0) {
if (lbl.Top>0)
lbl.Top-=5;
}
else
if (dlt<0) {
if ((lbl.Top+lbl.Height)<stb.Top)
lbl.Top+=5;
}
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
