|
|
|
|
Наступает при прокрутке колеса мыши вверх.
Синтаксис
| function OnMouseWheelUp(
| | Sender, | | Shift, | | MousePos, | | Handled
| | );
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Sender
| TComponent
| дескриптор визуального компонента
|
| Shift
| Enumset
| состояние управляющих клавиш (см. ниже)
|
| MousePos
| TPoint
| координаты указателя мыши
|
| Handled
| Boolean
| прекратить дальнейшую обработку текущего события.
Handled.Value=true - прекратить (значение по умолчанию - false)
|
|
| Параметр Shift
|
| Значение
| Описание
|
| ssAlt
| клавиша Alt
|
| ssCtrl
| клавиша Ctrl
|
| ssShift
| клавиша Shift
|
|
// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие визуальных компонентов OnMouseWheelUp";
frm.Width =450;
frm.Height=300;
frm.OnMouseWheelDown=frm_MouseWheelDown;
frm.OnMouseWheelUp =frm_MouseWheelUp;
// Строка состояния
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();
// Обработчик события OnMouseWheelDown
function frm_MouseWheelDown(frm,sft,pos,handled)
{
if ((lbl.Top+lbl.Height)<stb.Top)
lbl.Top+=5;
}
// Обработчик события OnMouseWheelUp
function frm_MouseWheelUp(frm,sft,pos,handled)
{
if (lbl.Top>0)
lbl.Top-=5;
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
