ПанельМеню.Доступность (MenuBar.Enabled) Свойство

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

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

Значение

Тип: Булево.

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

Примечание

Пример

ПанельМеню1.Доступность = Ложь;
Полный пример кода


Перем ТФ, ПанельМеню1, Текст; Процедура ПриОткрытии() Экспорт ПанельМеню1.Доступность = Ложь; Доступность = ПанельМеню1.Доступность; ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Доступность = " + Доступность + " |"; КонецПроцедуры Процедура Файл_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Справка_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Открыть_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Выход_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельМеню1 = ТФ.ПанельМеню(); ТФ.Верхний.Добавить(ПанельМеню1); ПунктМеню1 = ТФ.ПунктМеню(); ПунктМеню1.Заголовок = "Файл"; ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню1); ЭлементМеню1 = ТФ.ЭлементМеню(); ЭлементМеню1.Заголовок = "_Открыть"; ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню1); ЭлементМеню2 = ТФ.ЭлементМеню(); ЭлементМеню2.Заголовок = "_Выход"; ЭлементМеню2.Подсказка = "Выход"; ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню2); ПунктМеню2 = ТФ.ПунктМеню(); ПунктМеню2.Заголовок = "Справка"; ПунктМеню2.Подсказка = "Справка"; ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню2); Текст = " | | | | | | |Кликните по элементам панели меню. |"; ТФ.Верхний.Текст = Текст; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();

Тестовый код


Перем ТФ, ПанельМеню1, Текст, Доступность; Процедура ПриОткрытии() Экспорт ПанельМеню1.Доступность = Ложь; Доступность = ПанельМеню1.Доступность; ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Доступность = " + Доступность + " |"; КонецПроцедуры Процедура Файл_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Справка_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Открыть_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Выход_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельМеню1 = ТФ.ПанельМеню(); ТФ.Верхний.Добавить(ПанельМеню1); ПунктМеню1 = ТФ.ПунктМеню(); ПунктМеню1.Заголовок = "Файл"; ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню1); ЭлементМеню1 = ТФ.ЭлементМеню(); ЭлементМеню1.Заголовок = "_Открыть"; ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню1); ЭлементМеню2 = ТФ.ЭлементМеню(); ЭлементМеню2.Заголовок = "_Выход"; ЭлементМеню2.Подсказка = "Выход"; ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню2); ПунктМеню2 = ТФ.ПунктМеню(); ПунктМеню2.Заголовок = "Справка"; ПунктМеню2.Подсказка = "Справка"; ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню2); Текст = " | | | | | | |Кликните по элементам панели меню. |"; ТФ.Верхний.Текст = Текст; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( Не Доступность , "", "!!! ") + "ПанельМеню.Доступность (MenuBar.Enabled) Свойство" + " " + ТекущаяДата() + Символы.ПС);

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

Библиотека OneScriptTerminalGui