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

тупизм
переключить мышкой язык клавы, чтоб потом печатать на клавиатуре

смысл ?


тогда вызывай электронную клавиатуру

А кто тебе сказал, что оно возникает? ;-)

(1) читай внимательно

(1) ты не понял... Про мышку - это когда в поле мышой ткнёшь...

(2) должно

(2) Он хочет...

типа
  Если (ЗагрузитьВнешнююКомпоненту("NetaTable.dll")=1) Тогда
   РовнаяТаблица=СоздатьОбъект("AddIn.NTable");
 Иначе
   Предупреждение("Внешняя компонента AddIn.NetaTable НЕ подключена!!!"+РазделительСтрок+"Работа программы невозможна!!!");
   СтатусВозврата(0);
   Возврат
 КонецЕсли;
Процедура ПриНачалеВыбораЗначения(ИдентЭлемента,ФлагОтбора)
 Если ИдентЭлемента = "Диагноз" Тогда
   РовнаяТаблица.УстановитьРаскладку(67699721);
 ИначеЕсли ИдентЭлемента = "ИсточникФинансирования" Тогда
   РовнаяТаблица.УстановитьРаскладку(68748313);
 КонецЕсли;
КонецПроцедуры

Там вроде можешь через Форма.АктивныйЭлемент() отлавливать.

Повесить на форму функцию, в ней сравнивать текущий Форма.АктивныйЭлемент() с предыдущим, при изменении и меняй язык.

(8) по таймеру чтоли ?

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

Типа

Перем мПредЭлементДиалога; // Переменная модуля

Процедура ПриОткрытии()
мПредЭлементДиалога = Форма.ТекущийЭлемент();
КонецПроцедуры

Функция ФункцияНаФорме()
Если мПредЭлементДиалога <> Форма.ТекущийЭлемент() Тогда
    Если Форма.ТекущийЭлемент() = "ИдентРеквизитаГдеНадоМенятьРаскладку" Тогда
    // Меняем раскладку
    КонецЕсли ;
мПредЭлементДиалога = Форма.ТекущийЭлемент()
КонецЕсли ;
КонецФункции

Только наверное

Процедура ПриОткрытии()
мПредЭлементДиалога = "";
КонецПроцедуры

(11) Забыл в функции сделать
Возврат "Заголовок текстового поля";
:)

Тьфу ты блин.

Заменить

Форма.ТекущийЭлемент() на Форма.АктивныйЭлемент() .

Но по <Таб> не срабатывает