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

Вниз

Раскладка клавиатуры   Найти похожие ветки 

← →
Павел   (2002-12-15 14:20) [0]

Уважаемые мастера-программисты, подскажите пожалуйста, как можно программно установить английскую раскладку клавиатуры?

---

← →
Song   (2002-12-15 14:23) [1]

LoadKeyboardLayout()
ActivateKeyboardLayout()

---

← →
Павел   (2002-12-15 14:29) [2]

Song, Прибольшое ВАМ спасибо ! :)

---

← →
Vlad1   (2002-12-15 14:52) [3]

procedure TForm1.FormCreate(Sender:TObject);
var ruslang,englang:THandle;
n,i;integer;
begin
ruslang:=0;englang:=0;
n:=GetKeyboardLayOutList(High(layouts)+1,layouts);
for i:=0 to n-1 do
begin
if (LoWord(LayOuts[i])and $ff)=Lang_Russian
then ruslang:=LayOuts[i];
if (LoWord(LayOuts[i])and $ff)= Lang_English then
englang:=LayOuts[i];
end;
end;
procedure Tform1.BtnRusClick(Sender:TObject);
begin
if englang<>0 then ActivateKeyBoardLayOut(englang,0);
end;


---

← →
Vlad1   (2002-12-15 14:56) [4]

Sorry,
в TForm1.FormCreate(Sender:TObject);
надо ещё добавить var LayOuts[0..7] of THandle;

---

← →
Vlad1   (2002-12-15 14:59) [5]

Sorry ещё раз,
в TForm1.FormCreate(Sender:TObject);
надо добавить var LayOuts:array[0..7] of THandle
Увы,
отвлекли...

---

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

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

Наверх

Память: 0.55 MB
Время: 0.031 c