Для переключения в языка ввода на клавиатуре в Delphi
1) Кидаем на форму две клавиши Button;
2) На OnClick первого Button пишем:
1 2 3 |
begin LoadKeyboardLayout('00000419', KLF_ACTIVATE); //Русская раскладка end; |
3) На OnClick второго Button пишем:
1 2 3 |
begin LoadKeyboardLayout('00000409', KLF_ACTIVATE); //Английская раскладка end; |
4) Запускаем проект и переключаемся.