Только чтение.
Тип: Строка.
Возвращает значение для клавиши в виде строки вместе со значением модификатора, если таковой был применен.
КлавишаСтрокой = Аргументы.КлавишаСтрокой;
Перем ТФ, Кнопка1, КлавишаВызова, Окно1; Процедура ПриОткрытии() Экспорт КлавишаВызова = Кнопка1.КлавишаВызова; Окно1.Заголовок = Окно1.Заголовок + " Кнопка1.КлавишаВызова = " + КлавишаВызова; ТФ.ОтправитьКлавиши("к", Ложь, Ложь, Ложь); КонецПроцедуры Процедура Нажатие() Экспорт ТФ.Верхний.Текст = "Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |КлавишаВызова = " + КлавишаВызова + " |"; КонецПроцедуры Процедура КлавишаНажата() Экспорт Аргументы = ТФ.АргументыСобытия; Окно1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Аргументы.Клавиша = " + Аргументы.Клавиша + " |Аргументы.КлавишаСтрокой = " + Аргументы.КлавишаСтрокой + " |Аргументы.ЭтоAlt = " + Аргументы.ЭтоAlt + " |Аргументы.ЭтоCtrl = " + Аргументы.ЭтоCtrl + " |Аргументы.ЭтоShift = " + Аргументы.ЭтоShift + " |Аргументы.ЭтоCapslock = " + Аргументы.ЭтоCapslock + " |Аргументы.ЭтоNumlock = " + Аргументы.ЭтоNumlock + " |Аргументы.ЭтоScrolllock = " + Аргументы.ЭтоScrolllock + " |"; КлавишаСтрокой = Аргументы.КлавишаСтрокой; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Окно("Окно1"); Окно1.Икс = ТФ.Позиция.Абсолютно(1); Окно1.Игрек = ТФ.Позиция.Абсолютно(10); Окно1.Ширина = ТФ.Величина.Абсолютно(50); Окно1.Высота = ТФ.Величина.Абсолютно(18); ТФ.Верхний.Добавить(Окно1); Кнопка1 = ТФ.Кнопка("Кнопка1 - нажмите клавишу К |(без модификаторов и |в русской раскладке)"); Кнопка1.Икс = ТФ.Позиция.Абсолютно(4); Кнопка1.Игрек = ТФ.Позиция.Абсолютно(12); Окно1.Добавить(Кнопка1); Граница1 = ТФ.Граница(); Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная; Кнопка1.Граница = Граница1; Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Нажатие"); Кнопка1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, "КлавишаНажата"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, Кнопка1, КлавишаВызова, Окно1, КлавишаСтрокой; Процедура ПриОткрытии() Экспорт КлавишаВызова = Кнопка1.КлавишаВызова; Окно1.Заголовок = Окно1.Заголовок + " Кнопка1.КлавишаВызова = " + КлавишаВызова; ТФ.ОтправитьКлавиши("К", Ложь, Ложь, Ложь); КонецПроцедуры Процедура Нажатие() Экспорт ТФ.Верхний.Текст = "Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |КлавишаВызова = " + КлавишаВызова + " |"; КонецПроцедуры Процедура КлавишаНажата() Экспорт Аргументы = ТФ.АргументыСобытия; Окно1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Аргументы.Клавиша = " + Аргументы.Клавиша + " |Аргументы.КлавишаСтрокой = " + Аргументы.КлавишаСтрокой + " |Аргументы.ЭтоAlt = " + Аргументы.ЭтоAlt + " |Аргументы.ЭтоCtrl = " + Аргументы.ЭтоCtrl + " |Аргументы.ЭтоShift = " + Аргументы.ЭтоShift + " |Аргументы.ЭтоCapslock = " + Аргументы.ЭтоCapslock + " |Аргументы.ЭтоNumlock = " + Аргументы.ЭтоNumlock + " |Аргументы.ЭтоScrolllock = " + Аргументы.ЭтоScrolllock + " |"; КлавишаСтрокой = Аргументы.КлавишаСтрокой; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Окно1 = ТФ.Окно("Окно1"); Окно1.Икс = ТФ.Позиция.Абсолютно(1); Окно1.Игрек = ТФ.Позиция.Абсолютно(10); Окно1.Ширина = ТФ.Величина.Абсолютно(50); Окно1.Высота = ТФ.Величина.Абсолютно(18); ТФ.Верхний.Добавить(Окно1); Кнопка1 = ТФ.Кнопка("Кнопка1 - нажмите клавишу К |(без модификаторов и |в русской раскладке)"); Кнопка1.Икс = ТФ.Позиция.Абсолютно(4); Кнопка1.Игрек = ТФ.Позиция.Абсолютно(12); Окно1.Добавить(Кнопка1); Граница1 = ТФ.Граница(); Граница1.СтильГраницы = ТФ.СтильГраницы.Закругленная; Кнопка1.Граница = Граница1; Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Нажатие"); Кнопка1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, "КлавишаНажата"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( КлавишаСтрокой = "1050" , "", "!!! ") + "АргументыСобытия.КлавишаСтрокой (EventArgs.KeyToString) Свойство" + " " + ТекущаяДата() + Символы.ПС);