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