deshabilita el cambio automático del diseño del teclado en DbGrids.pas en VCL

Question

Uso ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); para cargar el diseño del teclado persa con Delphi XE2, pero a veces hago clic en el control TextBox o DbGrid, el teclado cambia automáticamente al diseño en inglés.

¿Cómo puedo desactivar el cambio automático del diseño del teclado?

Answer 1

Tenemos los mismos problemas. Este error apareció después de la actualización de D2006 a D2010.

cuestión es en 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; 

no tengo ni idea de por qué Borland/Embarcadero añadió "si el bloque" después heredó. El cambio provoca que la distribución del teclado vuelva a ser la predeterminada. Tuvimos que copiar DBGrids a nuestros proyectos y eliminar "if block".