Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код для выполнения при закрытии формы.
Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии");
Копировать Выделить всёПерем Ф, Счетчик; Процедура Форма1_ПриЗакрытии() Экспорт Счетчик = Счетчик + 1; ПриЗакрытииФормыАрг1 = Ф.ПриЗакрытииФормыАрг(); Сообщить("Попытка = " + Счетчик); Если Счетчик > 2 Тогда ПриЗакрытииФормыАрг1.Отмена = Ложь; Иначе ПриЗакрытииФормыАрг1.Отмена = Истина; КонецЕсли; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Ширина = 450; Форма1.Текст = "Форма закроется с третьего раза"; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии"); Счетчик = 0; Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф, Счетчик; Процедура Форма1_ПриЗакрытии() Экспорт Счетчик = Счетчик + 1; ПриЗакрытииФормыАрг1 = Ф.ПриЗакрытииФормыАрг(); Сообщить("Попытка = " + Счетчик); Если Счетчик > 2 Тогда ПриЗакрытииФормыАрг1.Отмена = Ложь; Иначе ПриЗакрытииФормыАрг1.Отмена = Истина; КонецЕсли; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Ширина = 450; Форма1.Текст = "Форма закроется с третьего раза"; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии"); Счетчик = 0; Сообщить(?( Форма1.ПриЗакрытии.ИмяМетода = "Форма1_ПриЗакрытии" , "", "!!! ") + "Форма.ПриЗакрытии (Form.FormClosing) Свойство" + " " + ТекущаяДата());