ПриЗакрытииФормыАрг.ПричинаЗакрытия (FormClosingEventArgs.CloseReason) Свойство

Копировать     Выделить всё

Перем Ф;

Процедура Форма1_ПриЗакрытии() Экспорт
	ПриЗакрытииФормыАрг1 = Ф.ПриЗакрытииФормыАрг();
	Сообщить("ПричинаЗакрытия = " + ПриЗакрытииФормыАрг1.ПричинаЗакрытия);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии");

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

Перем Ф, ПричинаЗакрытия;

Процедура Форма1_ПриЗакрытии() Экспорт
	ПриЗакрытииФормыАрг1 = Ф.ПриЗакрытииФормыАрг();
	ПричинаЗакрытия = ПриЗакрытииФормыАрг1.ПричинаЗакрытия;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Ф.РазрешитьСобытия = Истина;

Форма1.ПриЗакрытии = Ф.Действие(ЭтотОбъект, "Форма1_ПриЗакрытии");
Форма1.Закрыть();

Сообщить(?(
ПричинаЗакрытия = 3
, "", "!!! ") + "ПриЗакрытииФормыАрг.ПричинаЗакрытия (FormClosingEventArgs.CloseReason) Свойство" + " " + ТекущаяДата());