disabilita la modifica automatica del layout della tastiera in DbGrids.pas in VCL

Question

Io uso ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); per caricare il layout di tastiera persiano usando Delphi XE2, ma a volte faccio clic su TextBox o controllo DbGrid la tastiera viene automaticamente modificata in layout inglese.

Come si disabilita la modifica automatica del layout della tastiera?

Answer 1

Abbiamo gli stessi problemi. Questo bug è apparso dopo l'aggiornamento da D2006 a D2010.

questione è 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; 

Non ho idea del motivo per cui Borland/Embarcadero aggiunto "se blocco" dopo ereditato. Cambia causa il cambiamento del layout della tastiera di default. Dovevamo copiare DBGrids nei nostri progetti e rimuovere "if block".