Home/ Questions/Q 7662985
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-31T13:56:29+00:00

I use ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); to load Persian keyboard layout using Delphi XE2, But sometimes

  • 0

I use ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); to load Persian keyboard layout using Delphi XE2, But sometimes I click on TextBox or DbGrid control the keyboard automatically is changed to English layout.

How can I disable automatic changing of keyboard layout?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    We have same issues. This bug appeared after upgrade from D2006 to D2010.

    Issue is in DBGrids.pas:

    procedure TCustomDBGrid.WMKillFocus(var Message: TMessage);
begin
  ImeName := Screen.DefaultIme;
  ImeMode := imDontCare;
  inherited;
  if not ((InplaceEditor <> nil) and
    (HWND(Message.WParam) = InplaceEditor.Handle)) then
    ActivateKeyboardLayout(Screen.DefaultKbLayout, KLF_ACTIVATE);
end;

    I have no idea why Borland/Embarcadero added “if block” after inherited. Change causes switching keyboard layout back to default. We had to copy DBGrids to our projects and remove “if block”.

    • 0