在DBGrid使用五笔输入时，如果用鼠标点击其他Edit，会变成英文输入法，再点回DBGrid输入法还是英文，如何让它保持为五笔输入？(现所有控

[kingbenz]

在DBGrid使用五笔输入时，如果用鼠标点击其他Edit，会变成英文输入法，再点回DBGrid输入法还是英文，如何让它保持为五笔输入？(现所有控件的ImeMode都为imDontCare，ImeName为空)

[lxpbuaa]

procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.ImeName := '五笔输入法';
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[wyb716]

在DBGrid的OnEnter事件中写也可以的。
DBGrid1.ImeName := '对应的王笔输入法名';

[kingbenz]

问题是怎样得到当前是输入法是什么？

[lxpbuaa]

Screen.Imes 可得到所有输入法列表


————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[xiaoyuer0851]

同意，你可以在程序中指定，也可以在dbgrid ImeName属性里指定…………

[lhpgh]

在设置时设置属性ImeName为系统已安装的五笔就可以了呀

[lchy20cn]

在你DBGrid控件的ImeName属性设置成你需要的输入法

[LiuXing123]

这是DELPHI的一个小BUG.在delphi的DBGRIDS里.
///////////////////////////////////////////就是下面的
procedure TCustomDBGrid.WMKillFocus(var Message: TMessage);
begin
// if not SysLocale.FarEast then inherited //原先错误的.
if SysLocale.FarEast then inherited //改正后的
else
begin
ImeName := Screen.DefaultIme;
ImeMode := imDontCare;
inherited;
if not ((InplaceEditor <> nil) and
(HWND(Message.WParam) = InplaceEditor.Handle)) then
ActivateKeyboardLayout(Screen.DefaultKbLayout, KLF_ACTIVATE);
end;
end;

///////////////////////////////
改正后要重新INSTALL COMPONENT 就行

另:在设置输入法时,最好设置
ImeMode:=DONTCARE;
ImeName:= //(空)
让用户自己打开输入法,直到他自己关闭,否则应一直不变的.

[kingbenz]

流星，改了也不行，焦点一离开DBGrid中文输入法就不见了。你是不是漏了什么没说？