Форум: "Основная";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Вниз

Последовательное переключение раскладки клавиатуры.   Найти похожие ветки 

← →
((Alexis))   (2002-10-30 15:53) [0]

Привет. Помогите организовать последовательное переключение расскладки клавиатуры. Мой код работает, если загружены три языка, а если одного нет - не работает. Помогите.

procedure TForm1.Button1Click(Sender: TObject);
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout); //Текущая расскладка
if Layout = "00000409" then
LoadKeyboardLayout(StrCopy(Layout,"00000419"),KLF_ACTIVATE) //русский
else
if Layout = "00000419" then
LoadKeyboardLayout(StrCopy(Layout,"00000422"),KLF_ACTIVATE) //украинский
else
if Layout = "00000422" then
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE); //английский
end;

---

← →
Внук   (2002-10-30 15:59) [1]

ActivateKeyboardLayout с параметром HKL_NEXT не подойдет?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c