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