Код

Перем ФРIdleProc;
Перем АктивныйЭлементКэш;

//===================================================
Процедура ПослеОткрытия()

	АктивныйЭлементКэш = Форма.АктивныйЭлемент();

	ФРIdleProc = СоздатьОбъект("РасширениеФормы");
	ФРIdleProc.ОбработкаОжидания("ПроверитьАктивныйЭлемент",1);

КонецПроцедуры	// ПослеОткрытия
//============================================================
Процедура ПриПолученииФокуса(ИдРеквизита)
	АктивныйЭлементКэш = ИдРеквизита;

	Сообщить("Получен фокус " + ИдРеквизита);
КонецПроцедуры	// ПриПолученииФокуса
//============================================================
Процедура ПроверитьАктивныйЭлемент()

	Если АктивныйЭлементКэш <> Форма.АктивныйЭлемент() Тогда

		ПриПолученииФокуса(Форма.АктивныйЭлемент());
	КонецЕсли;

КонецПроцедуры	// ПроверитьАктивныйЭлемент
//============================================================