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

Вниз

Переключиться Eng - Rus   Найти похожие ветки 

 
dim2001   (2002-01-26 16:20) [0]

Подскажите как програмно переключить клавиатуру с русского на английский и обратно? СПАСИБО.


 
copyr25   (2002-01-26 16:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadKeyboardLayout("00000409", KLF_ACTIVATE); // English
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // Russian
end;


 
dim2001   (2002-01-27 15:51) [2]

Спасибо !!!
А как узнать в каком состоянии она сейчас находится ?


 
Pat ©   (2002-01-27 17:03) [3]

GetKeyboardLayoutName()



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

Текущий архив: 2002.04.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-69850
Григорий
2002-04-06 00:43
2002.04.22
Немецкий алфавит


14-70023
Рамиль
2002-03-17 17:22
2002.04.22
Помогите настроить сеть на Win95/98 для работы с TCP/IP


6-69954
Turalyon
2002-02-11 16:49
2002.04.22
Проблеммы с Socket


3-69726
Ross
2002-03-29 23:02
2002.04.22
Помогите решить проблему


3-69729
kserg@ukr.net
2002-04-01 12:40
2002.04.22
Кто пользуется (и соот-но установил) в Делфи TStatusBarPro ?