|
|
|
| |
Определяет всплывающее меню.
Создание объекта
ppmObj=new TPopupMenu(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| Alignment
| Enum
| выравнивание меню относительно точки всплытия (см. ниже)
|
| AutoHotkeys
| Enum
| способ слежения за уникальностью комбинаций клавиш быстрого доступа (см. ниже)
|
| AutoLineReduction
| Enum
| способ удаления лишних разделителей между пунктами меню (см. ниже)
|
| AutoPopup
| Boolean
| разрешить всплытие меню по нажатию соответствующей кнопки мыши
|
| HelpContext
| Number
| идентификатор контекста помощи, связанного с меню
|
| Images
| TImageList
| список значков, используемых строками меню
|
| MenuAnimation
| Enum
| анимационный эффект при всплытии меню (см. ниже)
|
| OwnerDraw
| Boolean
| разрешить программную отрисовку меню
|
| PopupComponent
| TComponent
| компонент, инициировавший всплытие меню
|
| TrackButton
| Enum
| кнопка мыши, активизирующая меню, при связывании его с кнопкой компонента TToolBar (см. ниже)
|
| WindowHandle
| Number
| дескриптор окна меню Windows GDI (hWnd)
|
| Только чтение
| [TYPE]
| [DESC]
|
| Handle
| Number
| дескриптор меню Windows GDI (hMenu)
|
| Items[]
| TMenuItem
| индексированный список элементов меню
|
| PopupPoint
| TPoint
| точка всплытия меню, px (в экранной системе отсчета)
|
|
| Свойство Alignment
|
| Значение
| Описание
|
| paLeft
| левый верхний угол
|
| paRight
| правый верхний угол
|
| paCenter
| середина верхней стороны
|
|
| Свойство AutoHotkeys
|
| Значение
| Описание
|
| maAutomatic
| автоматическое слежение, не требующее какого-либо участия
|
| maManual
| программное слежение собственными силами
|
| maParent
| способ, установленный родительским пунктом
|
|
| Свойство AutoLineReduction
|
| Значение
| Описание
|
| maAutomatic
| автоматическое удаление, не требующее какого-либо участия
|
| maManual
| программное удаление собственными силами
|
| maParent
| способ, установленный родительским пунктом
|
|
| Собственные методы
|
| Метод
| Описание
|
|
| добавляет новый пункт в конец меню
|
| DispatchCommand
| выполняет пункт меню с указанным идентификатором
|
|
| выполняет пункт меню с указанным дескриптором Windows GDI
|
|
| возвращает дескриптор пункта меню с указанным идентификатором, дескриптором Windows GDI или кодом комбинации клавиш быстрого доступа
|
|
| возвращает идентификатор контекста помощи пункта меню
|
|
| выполняет пункт меню с указанным кодом комбинации клавиш быстрого доступа
|
|
| активизирует меню в точке с указанными координатами
|
|
| обрабатывает клавиатурное сообщение, отправленное Windows
|
|
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
|
| изменилось содержание меню
|
|
| меню будет отображено на экране
|
|
var stb_Text=" Кликните правой кнопкой мыши в области формы";
// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TPopupMenu";
frm.Width =450;
frm.Height=300;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=stb_Text;
// Всплывающее меню
pum=frm.PopupMenu=new TPopupMenu(frm);
pum.Images=new TImageList(pum);
pum.OnPopup=pum_Popup;
for (i=0;i<5;i++) {
mni=new TMenuItem(pum);
mni.Caption="Пункт "+(i+1);
mni.ImageIndex=i;
mni.OnClick=mni_Click;
// Иконка
icn=new TIcon();
icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TPopupMenu\\"+i+".ico");
pum.Images.AddIcon(icn);
icn.Delete();
}
frm.ShowModal();
// Обработчик события OnClick
function mni_Click(mni)
{
alert(" Выбран "+mni.Caption);
stb.SimpleText=stb_Text;
}
// Обработчик события OnPopup
function pum_Popup(pum)
{
var x=pum.PopupPoint.x,y=pum.PopupPoint.y;
stb.SimpleText=" Всплытие меню в точке: "+x+","+y;
}
|
Примечание
Всплывающее меню может быть связано с любым визуальным компонентом. Для этого следует создать всплывающее меню, а затем указать его дескриптор в свойстве PopupMenu визуального компонента.
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
