Использование
Чтение и запись.
Значение
Тип: Действие (Action).
Возвращает или задает код события при изменении времени.
Примечание
Аргументы события
 БылоМинут (OldMinutes) |
Возвращает предыдущее значение минут. |
| БылоСекунд (OldSeconds) |
Возвращает предыдущее значение секунд. |
| БылоТактов (OldTicks) |
Возвращает предыдущее значение тактов (тиков). |
| БылоЧасов (OldHours) |
Возвращает предыдущее значение часов. |
| Отправитель (Sender) |
Возвращает источник (объект) последнего события. |
| Параметр (Parameter) |
Возвращает объект, заданный при установке обработчика события, для передачи в обработчик события. |
| СталоМинут (NewMinutes) |
Возвращает новое значение минут. |
| СталоСекунд (NewSeconds) |
Возвращает новое значение секунд. |
| СталоТактов (NewTicks) |
Возвращает новое значение тактов (тиков). |
| СталоЧасов (NewHours) |
Возвращает новое значение часов. |
| ФорматВремени (TimeFormat) |
Возвращает формат времени. |
Пример
ПолеВремени1.ВремяИзменено = ТФ.Действие(ЭтотОбъект, "ПолеВремени1_ВремяИзменено");
Полный пример кода
Перем ТФ, ПолеВремени1, Таймер1, АргументыСобытия; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Измените значения часов, минут, секунд"; ПолеВремени1.ПозицияКурсора = 2; Таймер1.Начать(); КонецПроцедуры Процедура ПолеВремени1_ВремяИзменено() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Текст = "Формат времени = " + АргументыСобытия.ФорматВремени + " |Было часов = " + АргументыСобытия.БылоЧасов + " |Стало часов = " + АргументыСобытия.СталоЧасов + " |Было минут = " + АргументыСобытия.БылоМинут + " |Стало минут = " + АргументыСобытия.СталоМинут + " |Было секунд = " + АргументыСобытия.БылоСекунд + " |Стало секунд = " + АргументыСобытия.СталоСекунд + " |Было тактов = " + АргументыСобытия.БылоТактов + " |Стало тактов = " + АргументыСобытия.СталоТактов; ТФ.Уведомление().Показать(Текст, -1); КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Часы = ПолеВремени1.Часы; Если Часы > 13 Тогда ТФ.ОтправитьКлавиши("3", Ложь, Ложь, Ложь); ИначеЕсли Часы < 14 Тогда ТФ.ОтправитьКлавиши("5", Ложь, Ложь, Ложь); КонецЕсли; ПолеВремени1.ПозицияКурсора = 2; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПолеВремени1 = ТФ.Верхний.Добавить(ТФ.ПолеВремени(ТекущаяДата(), , 5)); ПолеВремени1.ВремяИзменено = ТФ.Действие(ЭтотОбъект, "ПолеВремени1_ВремяИзменено"); Таймер1 = ТФ.Таймер(1000); Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Тестовый код
Перем ТФ, ПолеВремени1, Таймер1, Часы; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Измените значения часов, минут, секунд"; ПолеВремени1.ПозицияКурсора = 2; Таймер1.Начать(); КонецПроцедуры Процедура ПолеВремени1_ВремяИзменено() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Текст = "Формат времени = " + АргументыСобытия.ФорматВремени + " |Было часов = " + АргументыСобытия.БылоЧасов + " |Стало часов = " + АргументыСобытия.СталоЧасов + " |Было минут = " + АргументыСобытия.БылоМинут + " |Стало минут = " + АргументыСобытия.СталоМинут + " |Было секунд = " + АргументыСобытия.БылоСекунд + " |Стало секунд = " + АргументыСобытия.СталоСекунд + " |Было тактов = " + АргументыСобытия.БылоТактов + " |Стало тактов = " + АргументыСобытия.СталоТактов; ТФ.Уведомление().Показать(Текст, -1); КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Часы = ПолеВремени1.Часы; Если Часы > 13 Тогда ТФ.ОтправитьКлавиши("3", Ложь, Ложь, Ложь); ИначеЕсли Часы < 14 Тогда ТФ.ОтправитьКлавиши("5", Ложь, Ложь, Ложь); КонецЕсли; ПолеВремени1.ПозицияКурсора = 2; ТФ.Завершить(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПолеВремени1 = ТФ.Верхний.Добавить(ТФ.ПолеВремени(ТекущаяДата(), , 5)); ПолеВремени1.ВремяИзменено = ТФ.Действие(ЭтотОбъект, "ПолеВремени1_ВремяИзменено"); Таймер1 = ТФ.Таймер(1000); Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск(); Сообщить(?( Часы >= 0 , "", "!!! ") + "ПолеВремени.ВремяИзменено (TimeField.TimeChanged) Событие" + " " + ТекущаяДата() + Символы.ПС);