Хочу после открытия формы задать переменную контекста под именем "ВызывающийКонтекст", в к-й будет контекст формы вызвавшей открытие текущей формы.
Через "ВыполняемыйМодуль" работает, но только если в каждой из форм в начале модуля объявлять глобальную переменную "Перем ВызывающийКонтекст;", иначе переменная не будет доступна после открытия формы.

Можно ли как-нибудь создать в заданном контексте глобальную переменную?

У меня часто возникает нужда по закрытии формы объекта, вызвать процедуру контекста формы из к-й был этот объект открыт.
На данный момент я передаю контекст вызывающей формы явно. Много кода дублируется в каждой из форм.
Хотелось бы иметь универсальный механизм. Задумка такая - в контексте любой формы иметь доступ к переменной "ВызывающийКонтекст".
На данный момент это уже получается. Вместо ОткрытьФорму использую свою глОткрытьФорму, к-я назначает переменной открытого контекста "ВызывающийКонтекст" значение вызвавшего контекста. Надо лиш в каждой форме в начале модуля писать

Перем ВызывающийКонтекст; 

иначе значение будет присвоено переменной, к-я сразу после этого уничтожится.
Можно ли создать глобальную переменную средствами 1С++ в нужном контексте?

blindvic писал(а) 20. Августа 2008 :: 09:09:

Есть у меня в одной из конфигураций практически универсальный механизм передачи сообщений между открытыми формами. Соберусь на днях с силами и выложу.

artbear писал(а) 20. Августа 2008 :: 10:44:

С аналогичной целью можно использовать объект Таймер из ФормЕкс.

artbear писал(а) 20. Августа 2008 :: 10:44:

Так и делаю. При закрытии вызываю процедуру контекста, к-й содержится в глобальной переменной текущей формы "ВызывающийКонтекст".
В глобальном модуле:

****
Функция глОткрытьФорму(Объект, Конт, Режим = 0, Параметры = "") Экспорт
	Перем Идентификатор;

	Если ТипЗначенияСтр(Параметры) <> "СписокЗначений" Тогда
		Параметры = СоздатьОбъект("СписокЗначений");
	КонецЕсли;
	Параметры.ДобавитьЗначение(Конт, "ВызывающийКонтекст");


	Рез = ОткрытьФорму(Объект, Конт, Режим);  // пытаемся открыть форму Документа/Справочника для редактирования
	Если (Рез = 0) И (Режим = 0) Тогда  // если не получилось - откроем только для чтения
		Рез = ОткрытьФорму(Объект, Конт, 1);
	КонецЕсли;

    Если Рез = 0 Тогда Возврат 0; КонецЕсли;

	Для а = 1 По Параметры.РазмерСписка() Цикл
		Значение = Параметры.ПолучитьЗначение(а, Идентификатор);
		Если Лев(Идентификатор, 2) = "__" Тогда // служебное
		Иначе
			глУстановитьПеременнуюКонтекста(Конт, Идентификатор, Значение);
		КонецЕсли;
	КонецЦикла;

	//РасшФормы = СоздатьОбъект("РасширениеФормы");
	//РасшФормы.УстановитьФорму(Конт.Форма);
	//Модуль = СоздатьОбъект("ВыполняемыйМодуль");
	//Модуль.НазначитьКонтекст(Конт);
	//Модуль.УстановитьМодуль("Перем ВызывающийКонтекст;"
	//		"Процедура УстановитьПеременную(Значение)"
	//		"ВызывающийКонтекст = Значение;"
	//		"КонецПроцедуры");
	//Модуль.КомпилироватьИВыполнитьМодуль();
	//Модуль.УстановитьПеременную(ВызывающийКонтекст);
	Возврат 1;
КонецФункции 

В вызывающем контексте:

	Параметры = СоздатьОбъект("СписокЗначений");
	Параметры.ДобавитьЗначение(ТекущийЭлемент(), "Объект");
	глОткрытьФорму("Элемент.Поручитель", Контекст,, Параметры); 

В форме поручителя:

Перем ВызывающийКонтекст;
*******
Процедура ПриЗакрытии()
	Если ПустоеЗначение(КонтекстЗапроса) = 0 Тогда
		ВыпМодуль = СоздатьОбъект("ВыполняемыйМодуль");
		ВыпМодуль.ВыполнитьПроцедуруКонтекста(ВызывающийКонтекст, "СписокПоручителей", СоздатьОбъект("СписокЗначений"));
	КонецЕсли;
КонецПроцедуры 

Идеальным решением был бы механизм такой:
Я открываю некую формы с указанием особых параметров (вызывающий контекст, имя процедуры). По закрытии формы автоматически вызывается указанная процедура вызывающего контекста. И все это чтобы не требовало вмешательства и дублирования кода в формах как вызывающего,так и вызываемого контекстов...

Если бы я мог каждой открываемой форме присобачивать свойства "ВызывающийКонтекст" "ПроцедураДляВызова" и т.п., я бы это дело автоматически при открытии каждой формы, а в глобальной процедуре "ПослеЗакрытия" я бы вызывал соответствующую процедуру.
Контекст - это объект. Могу я ему создать новое свойство?

blindvic писал(а) 20. Августа 2008 :: 12:47:

Ну смотри. Подробная инструкция - в описании .ert.

Хочу обратить внимание на один нюанс использования механизма сообщений.

Выполнение кода обработки сообщения будет происходить как бы "синхронно",
т.е. выполнение кода вызывающей обработки будет приостановлено, а затем
продолжено после выполнения всех обработчиков.

Если же необходимо обработать сообщение(событие) "асинхронно", т.е после
того как вызывающая обработка завершит свое выполнение, то можно
воспользоваться функцией ВнешнееСобытие(<Источник>,<Событие>,<Данные>)
объекта Сервис (FormEx), а в нужных местах использовать стандартный механизм
обработки внешних событий ОбработкаВнешнегоСобытия(Источник,Событие,Данные)

blindvic писал(а) 22. Августа 2008 :: 06:43:

Для начала в ГМ

Перем МенеджерОповещений Экспорт;

//*******************************************
Процедура ПриНачалеРаботыСистемы()
	ЗагрузитьВнешнююКомпоненту("1cpp.dll");
	ЗагрузитьВнешнююКомпоненту("formex.dll");

	МенеджерОповещений = СоздатьОбъект("Оповещения");
КонецПроцедуры 

---

blindvic писал(а) 20. Августа 2008 :: 09:09:

В форме объекта

Процедура ПриЗакрытии()
	МенеджерОповещений.Оповестить("ФормаОбъекта_ПриЗакрытии",, Контекст);
КонецПроцедуры 

В форме владельца (или что там у тебя)

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
	Если (ИмяСобытия = "ФормаОбъекта_ПриЗакрытии") И (Источник = СохраненныйКонтекст) Тогда
		СделатьТоЧтоНадо();
	КонецЕсли;
КонецПроцедуры