Wyłącz automatyczną zmianę układu klawiatury w DbGrids.pas w VCL

Question

Używam ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); do ładowania perskiego układu klawiatury za pomocą Delphi XE2, ale czasami klikam na TextBox lub DbGrid sterowanie klawiatura automatycznie zmienia się na angielski układ.

Jak wyłączyć automatyczną zmianę układu klawiatury?

Answer 1

Mamy takie same problemy. Ten błąd pojawił się po aktualizacji z D2006 na D2010.

Problem jest w 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; 

nie mam pojęcia dlaczego Borland/Embarcadero dodaje "jeśli blok" po dziedziczone. Zmiana powoduje przełączenie układu klawiatury z powrotem na domyślny. Musieliśmy skopiować DBGrids do naszych projektów i usunąć "if block".