Верхний.ПанельМеню (Toplevel.MenuBar) Свойство

Использование

Чтение и запись.

Значение

Тип: ПанельМеню (MenuBar).

Возвращает или задает панель меню для элемента.

Примечание

Пример

ПанельМеню1 = ТФ.ПанельМеню();
ТФ.Верхний.ПанельМеню = ПанельМеню1;
Полный пример кода 



Перем ТФ, Окно2;

Процедура ПунктМеню1_Нажатие() Экспорт
	Окно2.Текст = "ПунктМеню Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ПунктМеню2_Нажатие() Экспорт
	Окно2.Текст = "ПунктМеню Правка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ЭлементМеню1_Нажатие() Экспорт
	Окно2.Текст = "ЭлементМеню Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ЭлементМеню2_Нажатие() Экспорт
	Окно2.Текст = "ЭлементМеню Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.ПанельМеню();
ТФ.Верхний.ПанельМеню = ПанельМеню1;

ПунктМеню1 = ТФ.ПунктМеню();
ПунктМеню1.Заголовок = "Файл";
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "ПунктМеню1_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню1);

ЭлементМеню1 = ТФ.ЭлементМеню();
ЭлементМеню1.Заголовок = "Открыть";
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементМеню1_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню1);

ЭлементМеню2 = ТФ.ЭлементМеню();
ЭлементМеню2.Заголовок = "Выход";
ЭлементМеню2.Подсказка = "(ALT + q)";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементМеню2_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню2);

ПунктМеню2 = ТФ.ПунктМеню();
ПунктМеню2.Заголовок = "Правка";
ПунктМеню2.Подсказка = "ALT + h";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "ПунктМеню2_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню2);

Окно2 = ТФ.Окно("Окно2");
Окно2.Текст = "Кликните по элементам панели меню.";
Окно2.Икс = ТФ.Позиция.Абсолютно(1);
Окно2.Игрек = ТФ.Позиция.Абсолютно(6);
Окно2.Ширина = ТФ.Величина.Процент(80);
Окно2.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно2);

ТФ.Запуск();

Тестовый код 



Перем ТФ, Окно2, ПанельМеню, ПанельМеню1;

Процедура ПриОткрытии() Экспорт
	ПанельМеню = ПанельМеню1;
КонецПроцедуры

Процедура ПунктМеню1_Нажатие() Экспорт
	Окно2.Текст = "ПунктМеню Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ПунктМеню2_Нажатие() Экспорт
	Окно2.Текст = "ПунктМеню Правка " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ЭлементМеню1_Нажатие() Экспорт
	Окно2.Текст = "ЭлементМеню Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура ЭлементМеню2_Нажатие() Экспорт
	Окно2.Текст = "ЭлементМеню Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПанельМеню1 = ТФ.ПанельМеню();
ТФ.Верхний.ПанельМеню = ПанельМеню1;

ПунктМеню1 = ТФ.ПунктМеню();
ПунктМеню1.Заголовок = "Файл";
ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "ПунктМеню1_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню1);

ЭлементМеню1 = ТФ.ЭлементМеню();
ЭлементМеню1.Заголовок = "Открыть";
ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементМеню1_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню1);

ЭлементМеню2 = ТФ.ЭлементМеню();
ЭлементМеню2.Заголовок = "Выход";
ЭлементМеню2.Подсказка = "(ALT + q)";
ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "ЭлементМеню2_Нажатие");
ПунктМеню1.Элементы.Добавить(ЭлементМеню2);

ПунктМеню2 = ТФ.ПунктМеню();
ПунктМеню2.Заголовок = "Правка";
ПунктМеню2.Подсказка = "ALT + h";
ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "ПунктМеню2_Нажатие");
ПанельМеню1.ПодМеню.Добавить(ПунктМеню2);

Окно2 = ТФ.Окно("Окно2");
Окно2.Текст = "Кликните по элементам панели меню.";
Окно2.Икс = ТФ.Позиция.Абсолютно(1);
Окно2.Игрек = ТФ.Позиция.Абсолютно(6);
Окно2.Ширина = ТФ.Величина.Процент(80);
Окно2.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно2);

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
ПанельМеню = ТФ.Верхний.ПанельМеню
, "", "!!! ") + "Верхний.ПанельМеню (Toplevel.MenuBar) Свойство" + " " + ТекущаяДата() + Символы.ПС);

Смотрите также

Библиотека OneScriptTerminalGui