Код

Функция СоздатьЭлементУправленияНаФорме(Объект, Атрибут)
Экспорт
	  _Форма = СоздатьОбъект("Форма");
	  Элемент = _Форма.СоздатьЭлементУправленияНаФорме(Конт.Форма, Объект, Атрибут);

	  Реквизит = РасширениеФормы.ПолучитьАтрибут(Атрибут);
	  Реквизит.Формула = "a=a"; // <== ОНО

	  Если Конт.Форма.ТолькоПросмотр() = 1 Тогда
		    Реквизит.Доступность = 0;
	  КонецЕсли;
	  Возврат Элемент;
КонецФункции 

Такой код не проходит, баг исчезает, но АктивИкс перестает реагировать на нажатие Ентер-а.
Дима обещал покопать

Код

BOOL CAXControlWnd::PreTranslateMessage(MSG* pMsg)
{
	if (pMsg->message == WM_KEYDOWN)
	{
		if (pMsg->wParam == VK_RETURN)
		{
			LPUNKNOWN iUnkControl = GetControlUnknown();
			if (iUnkControl)
			{
				IOleInPlaceActiveObject *iOleInPlaceActiveObject = NULL;
				HRESULT res = iUnkControl->QueryInterface(IID_IOleInPlaceActiveObject, (void**)&iOleInPlaceActiveObject);
				if (res == S_OK)
				{
					if (iOleInPlaceActiveObject->TranslateAccelerator(pMsg) == S_FALSE)
						::SendMessage(pMsg->hwnd,pMsg->message,pMsg->wParam,pMsg->lParam);
					iOleInPlaceActiveObject->Release();
				}
			}
			return TRUE;
		}
	}
	return CWnd::PreTranslateMessage(pMsg);
};