Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код, выполняемый при нажатии клавиши в то время как элемент имеет фокус.
Клавиша (KeyValue) |
Возвращает значение для клавиши в виде целого числа. |
КлавишаСтрокой (KeyToString) |
Возвращает значение для клавиши в виде строки вместе со значением модификатора, если таковой был применен. |
Отправитель (Sender) |
Возвращает источник (объект) последнего события. |
Параметр (Parameter) |
Возвращает объект, заданный при установке обработчика события, для передачи в обработчик события. |
ЭтоAlt (IsAlt) |
Возвращает значение, указывающее, была ли нажата клавиша Alt (реальная или синтезированная). |
ЭтоCapslock (IsCapslock) |
Возвращает значение, указывающее, была ли нажата клавиша CapsLock (реальная или синтезированная). |
ЭтоCtrl (IsCtrl) |
Возвращает значение, указывающее, была ли нажата клавиша Ctrl (реальная или синтезированная). |
ЭтоNumlock (IsNumlock) |
Возвращает значение, указывающее, была ли нажата клавиша NumLock (реальная или синтезированная). |
ЭтоScrolllock (IsScrolllock) |
Возвращает значение, указывающее, была ли нажата клавиша ScrollLock (реальная или синтезированная). |
ЭтоShift (IsShift) |
Возвращает значение, указывающее, была ли нажата клавиша Shift (реальная или синтезированная). |
Таблица1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, "Кнопка1_КлавишаНажата");
Перем ТФ, Таблица1, КлавишаНажата; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Таблица1 сейчас в фокусе. Нажмите любую клавишу. С модификаторами или без."; Таблица1.УстановитьФокус(); КонецПроцедуры Процедура Таблица1_КлавишаНажата() Экспорт АргументыСобытия = ТФ.АргументыСобытия; ТФ.Верхний.Текст = "Таблица1 сейчас в фокусе. Нажмите любую клавишу. С модификаторами или без. |Таблица1_КлавишаНажата = " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Отправитель = " + АргументыСобытия.Отправитель + " |Клавиша = " + АргументыСобытия.Клавиша + " (" + ТФ.Клавиши.Имя(АргументыСобытия.Клавиша) + ") |КлавишаСтрокой = " + АргументыСобытия.КлавишаСтрокой + " |ЭтоAlt = " + АргументыСобытия.ЭтоAlt + " |ЭтоCapslock = " + АргументыСобытия.ЭтоCapslock + " |ЭтоCtrl = " + АргументыСобытия.ЭтоCtrl + " |ЭтоNumlock = " + АргументыСобытия.ЭтоNumlock + " |ЭтоScrolllock = " + АргументыСобытия.ЭтоScrolllock + " |ЭтоShift = " + АргументыСобытия.ЭтоShift + " |"; КлавишаНажата = Истина; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица()); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Колонка1 = Колонки1.Добавить(ТФ.КолонкаДанных("№ н/п", ТФ.ТипДанных.Число)); Колонка2 = Колонки1.Добавить(ТФ.КолонкаДанных("ФИО", ТФ.ТипДанных.Строка)); Строки1 = ТаблицаДанных1.Строки; ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 1); ТекСтрока.УстановитьЭлемент("ФИО", "Иванов Иван Иванович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 2); ТекСтрока.УстановитьЭлемент("ФИО", "Семенов Семен Семенович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 3); ТекСтрока.УстановитьЭлемент("ФИО", "Шикалов Игнатий Маркович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 4); ТекСтрока.УстановитьЭлемент("ФИО", "Петров Петр Петрович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 5); ТекСтрока.УстановитьЭлемент("ФИО", "Сергеевич Аристарх Изяславович"); Таблица1.ТаблицаДанных = ТаблицаДанных1; Таблица1.Икс = ТФ.Позиция.Абсолютно(1); Таблица1.Игрек = ТФ.Позиция.Абсолютно(14); Таблица1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, "Таблица1_КлавишаНажата"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, Таблица1, КлавишаНажата; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Таблица1 сейчас в фокусе. Нажмите любую клавишу. С модификаторами или без."; Таблица1.УстановитьФокус(); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик"); КонецПроцедуры Процедура Таблица1_КлавишаНажата() Экспорт АргументыСобытия = ТФ.АргументыСобытия; ТФ.Верхний.Текст = "Таблица1 сейчас в фокусе. Нажмите любую клавишу. С модификаторами или без. |Таблица1_КлавишаНажата = " + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Отправитель = " + АргументыСобытия.Отправитель + " |Клавиша = " + АргументыСобытия.Клавиша + " (" + ТФ.Клавиши.Имя(АргументыСобытия.Клавиша) + ") |КлавишаСтрокой = " + АргументыСобытия.КлавишаСтрокой + " |ЭтоAlt = " + АргументыСобытия.ЭтоAlt + " |ЭтоCapslock = " + АргументыСобытия.ЭтоCapslock + " |ЭтоCtrl = " + АргументыСобытия.ЭтоCtrl + " |ЭтоNumlock = " + АргументыСобытия.ЭтоNumlock + " |ЭтоScrolllock = " + АргументыСобытия.ЭтоScrolllock + " |ЭтоShift = " + АргументыСобытия.ЭтоShift + " |"; КлавишаНажата = Истина; ТФ.Завершить(); КонецПроцедуры Процедура ТаймерТик() Экспорт ТФ.ОтправитьКлавиши("я", Ложь, Ложь, Ложь); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица()); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Колонка1 = Колонки1.Добавить(ТФ.КолонкаДанных("№ н/п", ТФ.ТипДанных.Число)); Колонка2 = Колонки1.Добавить(ТФ.КолонкаДанных("ФИО", ТФ.ТипДанных.Строка)); Строки1 = ТаблицаДанных1.Строки; ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 1); ТекСтрока.УстановитьЭлемент("ФИО", "Иванов Иван Иванович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 2); ТекСтрока.УстановитьЭлемент("ФИО", "Семенов Семен Семенович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 3); ТекСтрока.УстановитьЭлемент("ФИО", "Шикалов Игнатий Маркович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 4); ТекСтрока.УстановитьЭлемент("ФИО", "Петров Петр Петрович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 5); ТекСтрока.УстановитьЭлемент("ФИО", "Сергеевич Аристарх Изяславович"); Таблица1.ТаблицаДанных = ТаблицаДанных1; Таблица1.Икс = ТФ.Позиция.Абсолютно(1); Таблица1.Игрек = ТФ.Позиция.Абсолютно(14); Таблица1.КлавишаНажата = ТФ.Действие(ЭтотОбъект, "Таблица1_КлавишаНажата"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск(); Сообщить(?( КлавишаНажата , "", "!!! ") + "Таблица.КлавишаНажата (TableView.KeyPress) Событие" + " " + ТекущаяДата() + Символы.ПС);