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