我使用ActivateKeyboardLayout(HKL_NEXT,KLF_ACTIVATE);使用Delphi XE2加载波斯语键盘布局,但有时我点击TextBox或DbGrid控件键盘自动更改为英文布局.
解决方法
我们有同样的问题.从D2006升级到D2010后出现此错误.
问题出在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;
我不知道为什么Borland / Embarcadero在继承之后添加了“if block”.更改会导致将键盘布局切换回默认值.我们必须将DBGrids复制到我们的项目中并删除“if block”.