Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Delphi Сменить язык клавиатуры

Sascha

Заместитель Администратора
Команда форума
Администратор
Регистрация
9 Май 2015
Сообщения
1,059
Баллы
155
Возраст
47
Этот исходник при нажатии на Button1 меняет язык на следующий, при нажатии на Button2 – на русский, а на Button3 – на английский. Каждую секунду программа выводит в заголовок окна число, определяющее текущий язык.

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 ActivateKeyboardLayout(HKL_NEXT, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 ActivateKeyboardLayout(LoadKeyboardLayout('00000409', 0), 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 s: array [0..63] of char;
begin
 GetKeyboardLayoutName(s);
 Form1.Caption := s;
end;
 
Вверх