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

Вниз

переключение языка клавиатуры   Найти похожие ветки 

← →
Эли   (2002-11-15 18:21) [0]

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

---

← →
Marcus   (2002-11-15 18:28) [1]

См. функции LoadKeyboardLayout / ActivateKeyboardLayout

---

← →
MARcoDEN   (2002-11-15 18:56) [2]

procedure TForm1.Button1Click(Sender: TObject);//На русский
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,"00000419"),KLF_ACTIVATE);
end;

procedure TForm1.Button2Click(Sender: TObject);//На английский
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE);
end;

---

← →
Эли   (2002-11-15 20:29) [3]

Спасибо!!!

---

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

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

Наверх

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