Скачать: CL | DM;

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

← →
Эли   (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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c