КонтекстноеМеню.ПодМеню (ContextMenu.SubMenu) Свойство

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

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

Значение

Тип: ПунктМеню (MenuBarItem).

Возвращает или задает пункт меню, не имеющий заголовка и являющийся начальным объектом для построения контекстного меню.

Примечание

Пример

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



Перем ТФ, Окно1, КонтекстноеМеню1, ПодМеню;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

Процедура Окно1_ПриНажатииМыши() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Если АргументыСобытия.ФлагиМыши = КонтекстноеМеню1.КнопкаМышиДляАктивации Тогда
		КонтекстноеМеню1.Позиция = ТФ.Точка(АргументыСобытия.Икс, АргументыСобытия.Игрек);
		КонтекстноеМеню1.Показать();
	КонецЕсли;
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура СочетаниеКлавишДействие() Экспорт
	Список = КонтекстноеМеню1.ПолучитьСочетаниеКлавиш();
	Стр = "";
	Для Каждого Эл Из Список Цикл
		Стр = Стр + "
		| " + Эл.Значение + " (" + Эл.Представление + ") " + ТекущаяУниверсальнаяДатаВМиллисекундах();
	КонецЦикла;
	ТФ.Уведомление().Показать("СочетаниеКлавиш для " + КонтекстноеМеню1 + " = " + Стр, -1);
	
	КонтекстноеМеню1.Позиция = ТФ.Точка(5, 5);
	КонтекстноеМеню1.Показать();
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура Меню_Нажатие() Экспорт
	Окно1.Текст = "Меню_Нажатие()" + "
	|Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

Процедура ТаймерТик() Экспорт
	ПодМеню = КонтекстноеМеню1.ПодМеню;
	// ТФ.Завершить();
КонецПроцедуры

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

Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1"));
Окно1.Заполнить(ТФ.Ширина / 2, ТФ.Высота / 2);
Окно1.ПриНажатииМыши = ТФ.Действие(ЭтотОбъект, "Окно1_ПриНажатииМыши");
Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);
Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);

КонтекстноеМеню1 = ТФ.КонтекстноеМеню();
ПунктМеню1 = ТФ.ПунктМеню();
ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Открыть"));
ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Выход"));
КонтекстноеМеню1.ПодМеню = ПунктМеню1;

КонтекстноеМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
КонтекстноеМеню1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", КонтекстноеМеню1);

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

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

Тестовый код 



Перем ТФ, Окно1, КонтекстноеМеню1, ПодМеню;

Процедура ПриОткрытии() Экспорт
	Окно1.Текст = "Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

Процедура Окно1_ПриНажатииМыши() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Если АргументыСобытия.ФлагиМыши = КонтекстноеМеню1.КнопкаМышиДляАктивации Тогда
		КонтекстноеМеню1.Позиция = ТФ.Точка(АргументыСобытия.Икс, АргументыСобытия.Игрек);
		КонтекстноеМеню1.Показать();
	КонецЕсли;
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура СочетаниеКлавишДействие() Экспорт
	Список = КонтекстноеМеню1.ПолучитьСочетаниеКлавиш();
	Стр = "";
	Для Каждого Эл Из Список Цикл
		Стр = Стр + "
		| " + Эл.Значение + " (" + Эл.Представление + ") " + ТекущаяУниверсальнаяДатаВМиллисекундах();
	КонецЦикла;
	ТФ.Уведомление().Показать("СочетаниеКлавиш для " + КонтекстноеМеню1 + " = " + Стр, -1);
	
	КонтекстноеМеню1.Позиция = ТФ.Точка(5, 5);
	КонтекстноеМеню1.Показать();
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик", 2000);
КонецПроцедуры

Процедура Меню_Нажатие() Экспорт
	Окно1.Текст = "Меню_Нажатие()" + "
	|Вызовите контекстное меню нажав клавишу s (в англ. раскладке). 
	|Нажмите пункт - Да, вижу меню.
	|или w для выхода.";
КонецПроцедуры

Процедура ТаймерТик() Экспорт
	ПодМеню = КонтекстноеМеню1.ПодМеню;
	ТФ.Завершить();
КонецПроцедуры

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

Окно1 = ТФ.Верхний.Добавить(ТФ.Окно("Окно1"));
Окно1.Заполнить(ТФ.Ширина / 2, ТФ.Высота / 2);
Окно1.ПриНажатииМыши = ТФ.Действие(ЭтотОбъект, "Окно1_ПриНажатииМыши");
Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);
Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий);

КонтекстноеМеню1 = ТФ.КонтекстноеМеню();
ПунктМеню1 = ТФ.ПунктМеню();
ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Открыть"));
ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Выход"));
КонтекстноеМеню1.ПодМеню = ПунктМеню1;

КонтекстноеМеню1.ДобавитьСочетаниеКлавиш(ТФ.Клавиши.s_low);
КонтекстноеМеню1.СочетаниеКлавишДействие = ТФ.Действие(ЭтотОбъект, "СочетаниеКлавишДействие", КонтекстноеМеню1);

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

Сообщить(?(
ТипЗнч(ПодМеню) = Тип("ТфПунктМеню")
, "", "!!! ") + "КонтекстноеМеню.ПодМеню (ContextMenu.SubMenu) Свойство" + " " + ТекущаяДата() + Символы.ПС);

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

Библиотека OneScriptTerminalGui