Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

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

 
Павел   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-86148
vopros
2002-12-06 13:19
2002.12.26
Прикол


3-85837
MaXie
2002-12-05 16:27
2002.12.26
MS SQL передача данных в Excel.


1-86014
slgeo
2002-12-16 14:12
2002.12.26
TSocketConnection тормозит


4-86223
Repeater
2002-11-12 18:03
2002.12.26
Как получить параметр который передается в нить


1-85929
ScableR
2002-12-17 04:55
2002.12.26
Перескакивание из одного окна TEdit в другое.