VPF::Последовательное переключение раскладки клавиатуры

Olegek

Дата 31.10.2002, 01:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Код

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;

Baa

Дата 31.10.2002, 03:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

Репутация: нет
Всего: 12

ActivateKeyBoardLayout(HKL_NEXT, 0);

--------------------

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

RN3QGA

Дата 26.11.2005, 17:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте !
Может вопрос конечно делетанский, но как лучше сделать такое действие.
Когда курсор находится в ComboBox - раскладка клавы Англицкая а когда нет - Русская?
Я сделал по событию Change - работает , но только когда начинаешь действие, а мне желательно сразу как только курсор попал в ComboBox.
Спасибо Всем !

smile

Snowy

Дата 26.11.2005, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

OnEnter
OnExit

RN3QGA

Дата 26.11.2005, 20:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо !
Что-то я совсем оплошал !

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »