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

Вниз

Последовательное переключение раскладки клавиатуры.   Найти похожие ветки 

 
((Alexis))   (2002-10-30 15:53) [0]

Привет. Помогите организовать последовательное переключение расскладки клавиатуры. Мой код работает, если загружены три языка, а если одного нет - не работает. Помогите.

procedure TForm1.Button1Click(Sender: TObject);
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout); //Текущая расскладка
if Layout = "00000409" then
LoadKeyboardLayout(StrCopy(Layout,"00000419"),KLF_ACTIVATE) //русский
else
if Layout = "00000419" then
LoadKeyboardLayout(StrCopy(Layout,"00000422"),KLF_ACTIVATE) //украинский
else
if Layout = "00000422" then
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE); //английский
end;


 
Внук ©   (2002-10-30 15:59) [1]

ActivateKeyboardLayout с параметром HKL_NEXT не подойдет?



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

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

Наверх




Память: 0.46 MB
Время: 0.026 c
7-34276
Infinity2
2002-09-10 22:55
2002.11.11
Надо отследить изменения время в системе.


1-34053
TankMan
2002-10-30 18:20
2002.11.11
События при завершении приложения?


3-33886
NeyroSpace
2002-10-22 16:50
2002.11.11
Как триггером прочитать из поля Blob sub_type 1 в VarChar()


1-34003
atmospheric
2002-11-02 01:23
2002.11.11
Убрать кнопку приложения с Панели задач ?


14-34236
777
2002-10-23 00:47
2002.11.11
просто вдруг интересно стало