本文整理自网络，侵删。
碰到这样的问题，我首先想到有什么窗体属性，结果发现和输入有关的就是ImeMode和ImeName
看了看帮助没发现其他相关属性
又找了找API，也没发现什么相关函数
得，只好拿出杀手锏：
加一个消息日志，分析切换输入法的时候会有什么消息出现
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Memo1.Lines.IndexOf(IntToStr(Msg.message)) < 0 then
Memo1.Lines.Add(IntToStr(Msg.message));
end;
日志打出：
80
49836
49340
80=$50到messages.pas中搜索 "50"
找到WM_INPUTLANGCHANGEREQUEST = $0050
正好找到线索
其他两个消息不知道是啥
将这些消息截获，问题解决！参考代码如下：
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
case Msg.message of
WM_INPUTLANGCHANGEREQUEST, 49836, 49340: Handled := True;
end;
end;
相关阅读 >>
Delphi 如何在tmemo，tedit或trichedit中获得插入符的位置
Delphi kbmmw sampleservice/sampleclient方式传输数据集
Delphi 如何使用findfirst搜索不同的文件类型？
更多相关阅读请进入《Delphi》频道 >>
