delphi 程序如何禁止切换输入法?


本文整理自网络,侵删。

 碰到这样的问题,我首先想到有什么窗体属性,结果发现和输入有关的就是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 xe6 grid试用结果

Delphi win10系统已管理员的权限运行应用程序

Delphi 如何把程序钉到windows7任务栏(修正版)

Delphi 主线程等待子线程的安全退出

Delphi 窗体置顶(总在最前面)

Delphi 获取文件夹下包括子目录所有文件

Delphi线程中关闭程序

Delphi 根据进程名得到进程所在路径

Delphi 线程中修改主窗体的控件内容

Delphi 上次访问该文件的时间

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...