我在A窗體裡面用五筆輸入發輸入數據,在其中一個欄位要彈出一個B窗體進行參數選擇,後返回A窗體,可是這時A窗體的輸入法已經是英文輸入法了,而不是五筆輸入法,請問是怎麼回事?該怎麼處理才能保持為原來的五筆輸入法?
解决方案 »
- delphi中如何创建无向无权图,并求最短路径算法?
- 哪位有图像放大、缩小、亮度、对比度、饱和度及其他特效的算法
- 菜鸟问题,高手帮忙
- com+ 组件的释放问题
- 如何判断一次打印是否成功?~~~~~~~~急
- 请各位高手不吝赐教!!!
- 简单的过滤问题,帮助看一下!
- 我的一个DBEDIT的EDITMASK设为日期型。1999-2-18。如果我输入1999-31-18就会,出错。请问如何捕捉这个错误信息,并提示。谢谢。
- 从数据库中读TEXT字段出现问题,赐教!
- 请问如何在DELPHI 里面写汇编,最好能给出例子,急!!!送分!!
- 如何实现远程登陆啊(已经知道了IP)现在客户端要登陆连接服务器--都连接在internet网络上(另开帖给分)
- VCL中常用消息汇总(欢迎大家踊跃发言,给500分)
你可以在保存切换之后的输入法
然后在相应的ONEXIT事件里面取得当前输入法
關注中哦...........
我看到你打的是繁体,记得把IME_CHOTKEY_IME_NONIME_TOGGLE改成IME_THOTKEY_IME_NONIME_TOGGLE
var
myhkl:hkl;
begin
myhkl:=GetKeyBoardLayOut(0);
end;....
begin
if myhkl<>0 then begin
activatekeyboardlayout(myhkl,KLF_ACTIVATE);//KLF_ACTIVATE);//设置相应的输入法
end;以上代码为了适合你的要求时,需把 myhkl定义为全局变量.
myhkl:=GetKeyBoardLayOut(0);
写在改变输入法的地方,如你的:"我在员工录入窗口时打开“智能ABC”,然后关闭该窗口"
在关闭窗口的时候写上它. if myhkl<>0 then begin
activatekeyboardlayout(myhkl,KLF_ACTIVATE);//KLF_ACTIVATE);
写在要用到的地方,如写在你的"工资管理窗口"的show事件里.