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