Мини-пример перехвата сообщений Windows.
EDIT_CONTROL больше не выделяется, при получении фокуса.
В мсдн написано, еще что-то про стиль контрола. Возможно, если его поменять, тогда и перехват не потребуется.

chessman писал(а) 17. Октября 2011 :: 09:30:

Отлично работает! А как добавить ещё один контрол этой формы?

Бгг
выкроил время "для души" - удалось обойтись почти штатными методами.

ТипРеквизитаДиалога = 0;
РеквизитДиалога = "";
фНужноРеАктивизироватьТекущуюФорму = 0;
Конт = "";
Сервис = СоздатьОбъект("Сервис");
Если Сервис.АктивныйКонтекст(Конт) <> 1 Тогда
	фНужноРеАктивизироватьТекущуюФорму = -1;
ИначеЕсли ТипЗначенияСтр(Конт) <> "Таблица" Тогда
	оФорма = СоздатьОбъект("РасширениеФормы");
	оФорма.УстановитьФорму(Конт.Форма);

	РеквизитДиалога		= Конт.Форма.АктивныйЭлемент();
	ТипРеквизитаДиалога	= оФорма.ПолучитьАтрибут(РеквизитДиалога).Тип;
КонецЕсли;
 

ну а потом

Если фНужноРеАктивизироватьТекущуюФорму > 0 Тогда
	Попытка
		Если ТипЗначенияСтр(Конт) = "Таблица" Тогда
			Конт.Показать(,, 1);
		Иначе
			Конт.Активизировать(РеквизитДиалога);
			Если ТипРеквизитаДиалога = 2 Тогда
				Сервис.ЭмулироватьКлавиатуру("^{END}");
			КонецЕсли;
		КонецЕсли;
	Исключение
	КонецПопытки;
КонецЕсли;
 

Попытно выяснив один эффект, способный взорвать мозг при попытке его анализа:

Если в конце делать не Конт.Активизировать(РеквизитДиалога);
а просто Конт.Активизировать(); - то в некоторых случаях активный элемент сохраняется, а в некоторых - не сохраняется (активным становится самый левый-верхний элемент).
По первичным наблюдениям - НЕ сохраняется для форм отчетов/обработок и форм журналов документов.

супер