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