|
|
|
| |
Определяет главное горизонтальное меню формы.
Создание объекта
mnmObj=new TMainMenu(FormObj);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| AutoHotkeys
| Enum
| способ слежения за уникальностью комбинаций клавиш быстрого доступа (см. ниже)
|
| AutoLineReduction
| Enum
| способ удаления лишних разделителей между пунктами меню (см. ниже)
|
| AutoMerge
| Boolean
| разрешить слияние главного меню вторичной формы с главным меню основной формы
|
| Images
| TImageList
| список изображений для пунктов меню
|
| OwnerDraw
| Boolean
| разрешить программную отрисовку пунктов меню
|
| WindowHandle
| Number
| дескриптор окна меню Windows GDI
|
| Только чтение
| [TYPE]
| [DESC]
|
| Handle
| Number
| дескриптор меню Windows GDI
|
| Items[]
| TMenuItem
| индексированный список пунктов меню
|
|
| Свойство AutoHotkeys
|
| Значение
| Описание
|
| maAutomatic
| автоматическое слежение, не требующее какого-либо участия
|
| maManual
| программное слежение собственными силами
|
| maParent
| способ, установленный родительским пунктом
|
|
| Свойство AutoLineReduction
|
| Значение
| Описание
|
| maAutomatic
| автоматическое удаление, не требующее какого-либо участия
|
| maManual
| программное удаление собственными силами
|
| maParent
| способ, установленный родительским пунктом
|
|
| Собственные методы
|
| Метод
| Описание
|
| Add
| добавляет новый пункт в конец меню
|
| DispatchCommand
| выполняет пункт меню с указанным идентификатором
|
| DispatchPopup
| выполняет пункт меню с указанным дескриптором Windows GDI
|
| FindItem
| возвращает дескриптор пункта меню с указанным идентификатором, дескриптором Windows GDI или кодом комбинации клавиш быстрого доступа
|
| GetHelpContext
| возвращает идентификатор контекста помощи пункта меню
|
| IsShortCut
| выполняет пункт меню с указанным кодом комбинации клавиш быстрого доступа
|
| Merge
| объединяет текущее главное меню с указанным
|
| Unmerge
| разъединяет текущее главное меню с указанным
|
|
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnChange
| произошло изменение структуры меню
|
|
// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TMainMenu";
frm.Width =525;
frm.Height=375;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Выбирайте пункты меню";
// Главное меню формы
mnm=new TMainMenu(frm);
// Список изображений
iml=mnm.Images=new TImageList(mnm);
// Пункты главного меню
icn=new TIcon();
for (i=1;i<=5;i++) {
mi1=new TMenuItem(mnm);
mi1.Caption="Раздел "+i;
mi1.OnClick=mni_Click;
icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TMainMenu\\"+(i-1)+".ico");
iml.AddIcon(icn);
for (j=1;j<=i;j++) {
mi2=new TMenuItem(mi1);
mi2.Caption="Элемент "+i+"-"+j;
mi2.ImageIndex=j-1;
mi2.OnClick=mni_Click;
}
}
icn.Delete();
frm.ShowModal();
// Обработчик события OnClick
function mni_Click(mni)
{
var mni_Str=mni.Caption.replace("&","");
stb.SimpleText=" Выбран "+mni_Str;
if (mni_Str.indexOf("-")>0)
alert(stb.SimpleText);
}
|
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
