смена языка

[Petrov.A.S.2021]

Спецы как в лазарусе сменить язык автоматически, скажем в поле Едит1 вводится текст на английском, а в Едит2 на русском языке

[Arigato]

На обработчики события OnEnter прописать:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  // Переключение на английскую раскладку
  LoadKeyboardLayout('00000409', KLF_ACTIVATE);
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  // Переключение на русскую раскладку
  LoadKeyboardLayout('00000419', KLF_ACTIVATE);
end;

Не забыть подключить модуль Windows.