Автопереключение раскладки

[Андрей]

Прошу прощения если уже было, тогда пошлите на.... ссылочку
Как автоматически переключать с РУС на ENG при переходе в определенное поле и переключать наоборот при выходе с него ?

[Андрей]

Необязательно переключать раскладку, может быть перехватывать нажатия клавиш и преобразовывать каждый символ на лету ?

[Дед Пахом]

переключение реализуется с помощью WinAPI LoadKeyboardLayout(), ActivateKeyboardLayout(), UnloadKeyboardLayout()

[Андрей]

Спасибо !

[kreator]

Давным-давно выкладывали пример и удобную функцию.
Описание Win-API функций:

Код: Выделить всё

    GetKeyboardLayout(DWORD),HKL,pascal
    GetKeyboardLayoutNameA(*LPSTR),BOOL,pascal,raw

Функция переключения:

Код: Выделить всё

HKL                     EQUATE(UNSIGNED)

SwitchKBD Procedure (KBDLayout)
AKL  HKL
TMP  CSTRING(20)
loc:i Long

 Code
 loc:i = GetKeyboardLayoutNameA(Tmp)
 if Tmp<>KBDLayout
   AKL = ActivateKeyBoardLayout(1,0)
 end

Пример использования:

Код: Выделить всё

case field()
  of ?COU:NameLat
  orof ?COU:FullNameLat
    SwitchKBD(Latin)
  else
    SwitchKBD(Russian)
end

[Андрей]

А еще бы выложили раздел Global Includes

[kreator]

Вот это имеется ввиду:

Код: Выделить всё

Latin    CSTRING('00000409')
Russian  CSTRING('00000419')
HKL        EQUATE(UNSIGNED)

Или что?

[Андрей]

Наверно еще не хватает описания
ActivateKeyBoardLayout ?

[kreator]

Сорри.

Код: Выделить всё

    ActivateKeyboardLayout(HKL,UNSIGNED),HKL,pascal

[Андрей]

Спасибо !