У меня не получается.
Пробовал и "Функция ФормаПослеЗаписи" и "Функция Событие_ФормаПослеЗаписи"
Вот тестовая конфа. 1С++ положить в каталог ИБ

Перем ОбъектФорма Экспорт;

Вот ошибка - следующий код лишний
Цитата:

Время жизни объекта типа Форма совпадает со временем жизни самой формы.
Поэтому не нужно объявлять этот объект!
Комментируешь этот код, и все как у меня

//Перем ОбъектФорма Экспорт; // одно единственное изменение
Перем КонтекстФормы Экспорт;
=====
Процедура Конструктор()
     
КонецПроцедуры      // Конструктор

//--------------------------------------------
Функция контТип(Конт) Экспорт
     Если ТипЗначенияСтр(Конт)<>"ГрупповойКонтекст" Тогда Возврат ТипЗначенияСтр(Конт); КонецЕсли;
     Попытка Вид=Конт.ТекущийДокумент().Вид(); Возврат "Документ"; Исключение КонецПопытки;
     Попытка Вид=Конт.ТекущийЭлемент().Вид(); Возврат "Справочник"; Исключение КонецПопытки;
     Попытка Путь=""; Имя=""; Конт.РасположениеФайла(Путь, Имя); Возврат "ДФ"; Исключение КонецПопытки;
     Возврат "Форма";
КонецФункции

//--------------------------------------------
Функция контВид(Конт) Экспорт
     стрТип=контТип(Конт);
     Если стрТип="Документ" Тогда Возврат Конт.Вид();
     ИначеЕсли стрТип="Справочник" Тогда Возврат Конт.Вид();
     ИначеЕсли стрТип="СписокЗначений" Тогда Возврат Конт.Получить("Вид");
     КонецЕсли;
     Попытка Возврат Конт.Вид(); Исключение КонецПопытки; // гр контекст
     Попытка Возврат Конт.Вид; Исключение КонецПопытки; // форма, класс, ТЗ
     Возврат "";
КонецФункции

//======================================================================
Функция Перехватчик()
     Возврат СоздатьОбъект("Перехватчик");;
КонецФункции // Перехватчик

//======================================================================
Процедура Инит(Конт) Экспорт
     КонтекстФормы=Конт;      
     ОбъектФорма                  = СоздатьОбъект("Форма");
     ОбъектФорма.УстановитьФорму(КонтекстФормы.Форма);
     
     Перехватчик=СоздатьОбъект("Перехватчик");            
     Перехватчик.ПерехватитьСобытияГК(КонтекстФормы, вирт());

КонецПроцедуры // Инит

=====
Функция СобытиеГМ_СозданиеКонтекста(вхКонтФормы) Экспорт            
     текПерехватчик = Перехватчик().ПолучитьПерехватчикСобытийГК(вхКонтФормы);
     Если ПустоеЗначение(текПерехватчик)=1 Тогда
           ПерехватВсего = СоздатьОбъект("ПерехватГлобальника");
           ПерехватВсего.Инит(вхКонтФормы);
     КонецЕсли;
КонецФункции

//======================================================================
Функция Событие_ПриЗаписи() Экспорт
     Сообщить("Событие ПриЗаписи в Перехватчике");
     Возврат Перехватчик().ВыполнитьОригинальноеСобытиеГК(КонтекстФормы,"ПриЗаписи");
КонецФункции // Событие_ПриЗаписи

//======================================================================
Функция ФормаПослеЗаписи(ИсточникСобытия, флРезультат) Экспорт
     Сообщить("После записи в классе!","!");
    
     Перехватчик=СоздатьОбъект("Перехватчик");
     Возврат Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтекстФормы, "ФормаПослеЗаписи", ИсточникСобытия, флРезультат);
КонецФункции

ОбъектФорма                  = СоздатьОбъект("Форма");
     ОбъектФорма.УстановитьФорму(КонтекстФормы.Форма);
    
     Перехватчик=СоздатьОбъект("Перехватчик");            
     Перехватчик.ПерехватитьСобытияГК(КонтекстФормы, вирт());

artbear писал(а) 24. Августа 2010 :: 11:00:


Ты прав на все 100 !
Поменял местами - событие появилось!

ЗЫ: зато ошибка с вылетом при закрытии 1с осталась..