dephi 程序输入法中英文自动切换实现的源代码

原创 2001年06月09日 09:09:00

现在将源代码公布出来,来谢谢大家的支持。本人水平有限,大家有什么号的灵感或建议,请 email  wang517@21cn.com.多谢!!

原代码实现的思路:

   提供一个列举系统所有输入法的窗体,供用户选择,将选择的中文输入法保存到系统注册表里。

 提供一个方法 ChangeYouFormAllControlIme(form)  ,form 是需要输入的窗体名称,枚举出相应窗体具有输入法的控件。

提供一个方法 JugeClassType(PClass:Tcontrol),判断每一个控件的实际类型,根据其ImeMode(为了程序设计简便,当值 为imchinese 时,切换为用户选择的中文输入法 ,其它切换为英文)

下面是主要原代码:

//判断控件类型切换中英文这个只能具体判断,无法用 Twincontrol 笼统判别或概括

procedure JugeClassType(PClass:Tcontrol;
begin
if pclass is TEdit then
 begin
   if TEdit(pclass).ImeMode=imchinese then
     TEdit(pclass).ImeName:=StrImeName (StrImeName  注册表保存的中文输入法名)同)
   else
     TEdit(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TMemo then
 begin
   if TMemo(pclass).ImeMode=imchinese then
     TMemo(pclass).ImeName:=StrImeName
   else
     TMemo(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TComboBox then
 begin
   if TComboBox(pclass).ImeMode=imchinese then
     TComboBox(pclass).ImeName:=StrImeName
   else
     TComboBox(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TRichEdit then
 begin
   if TRichEdit(pclass).ImeMode=imchinese then
     TRichEdit(pclass).ImeName:=StrImeName
   else
     TRichEdit(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TDBGrid then
 begin
   if TDBGrid(pclass).ImeMode=imchinese then
     TDBGrid(pclass).ImeName:=StrImeName
   else
     TDBGrid(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TDBEdit then
 begin
   if TDBEdit(pclass).ImeMode=imchinese then
     TDBEdit(pclass).ImeName:=StrImeName
   else
     TDBEdit(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TDbMemo then
 begin
   if TDbMemo(pclass).ImeMode=imchinese then
     TDbMemo(pclass).ImeName:=StrImeName
   else
     TDbMemo(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TDbcombobox then
 begin
   if TDbcombobox(pclass).ImeMode=imchinese then
     TDbcombobox(pclass).ImeName:=StrImeName
   else
     TDbcombobox(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is Tdblookupcombobox then
 begin
   if Tdblookupcombobox(pclass).ImeMode=imchinese then
     Tdblookupcombobox(pclass).ImeName:=StrImeName
   else
     Tdblookupcombobox(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is Tdbrichedit then
 begin
   if Tdbrichedit(pclass).ImeMode=imchinese then
     Tdbrichedit(pclass).ImeName:=StrImeName
   else
     Tdbrichedit(pclass).ImeMode:=imClose;
   exit;
 end;
if pclass is TMaskEdit then
 begin
   if TMaskEdit(pclass).ImeMode=imchinese then
     TMaskEdit(pclass).ImeName:=StrImeName
   else
     TMaskEdit(pclass).ImeMode:=imClose;
   exit;
 end;
end;

//这个方法,您只需要在需要切换中英文的窗体 oncreate 事件里调用就可以了。YFormName,需要切换中英文的窗体。

Procedure ChangeYouFormAllControlIme(YFormName:TWinControl);
var
i:integer;
ChildControl:TControl;
Reg:TRegistry;
YouFormOrOTher:Twincontrol;
begin
YouFormOrOTher:=YFormName;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
try
 if Reg.OpenKey('/Software/IMeCustom',false)=true then
   StrImeName:=reg.ReadString('CustomIMeName');
finally
 reg.CloseKey;
 reg.Free;
end;
for i:=0 to YouFormOrOTher.ControlCount-1 do
 begin
   ChildControl:=YouFormOrOTher.Controls[i];
   JugeClassType(ChildControl);
   if ChildControl is TWinControl then ChangeYouFormAllControlIme(ChildControl as TWinControl);
 end;
end;
end.

枚举输入法,并将用户的选择保存到注册表里,很简单,这个大家可以自己实现。例如

ListBox1.Items:=screen.Imes;

 

程序实现自动切换输入法

active代表输入法为中文 inactive代表输入法为英文 auto代表打开输入法 disable代表关闭输入法http://hi.baidu.com/xgmlucky/blog/item/d5d...
  • wangbinjr
  • wangbinjr
  • 2010年04月26日 14:36
  • 1279

java实现自动切换输入法

说白了很简单,就是模拟下按键,嘻嘻 在这里还是留下点记录 当此对话框获得焦点后,响应下按键,这里切换输入法用的是ctrl+shift public void focusGained(Fo...
  • xty_seven
  • xty_seven
  • 2011年12月12日 00:13
  • 1881

中英文输入法的自动切换

中英文输入法的自动切换  前言:   在开发数据库程序时,常常需要输入中文和英文,为此,操作员不得不在两者之间不断切换,能不能实现中英文输入法的自动切换呢?即在需要输入中文的地方系统打开中文输入法,在...
  • shawls
  • shawls
  • 2001年06月06日 21:28
  • 2052

C#在应用程序中精确切换输入法介绍

如果在你的程序里需要输入很多的内容,比如各类单据,如果在进入每一个录入框的时候都能自动把输入法切换到合适的状态将会是一个很酷的特性,相比炫丽的界面而言打字到手抽筋的录入人员们对此会更加感兴趣。在win...
  • wangmj518
  • wangmj518
  • 2013年06月03日 10:17
  • 1836

android 输入法软键盘屏蔽掉中文切换

android4.4.2屏蔽掉输入法的中文情节, 直接上路子: diff --git a/packages/inputmethods/PinyinIME/res/xml/skb_sym2.xml b/...
  • DKBDKBDKB
  • DKBDKBDKB
  • 2016年11月08日 16:32
  • 1445

用VB在程序中添加切换中文输入法的功能

 思路:        先用GetKeyboardLayoutList 函数来取得所有输入法,然后逐个用ImmIsIME判断是否是中文输入法,如果是的话在用ImmGetDescription得到输入法...
  • dongle2001
  • dongle2001
  • 2005年01月17日 15:12
  • 2341

vb中将当前的输入法变为英文输入法

Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _        lpList As...
  • boxter110
  • boxter110
  • 2005年01月20日 17:46
  • 845

用AutoHotkey辅助切换中英文标点和智能切换中英文输入法

对于程序员来说,中英文标点的切换是经常用到,因为在编写程序时,要用英文标点,但偶尔会用到中文注释,因此需要将中文输入法设置成英文标点输出状态。然而,在写文档或者聊QQ等其他情况,我们又需要使用中文标点...
  • teshorse
  • teshorse
  • 2010年07月22日 11:13
  • 7249

Mac-自带输入法中英文切换失效

问题描述使用的系统自带的输入法,一直都相安无事,然后今天出现了问题 ,表现为:1.中英文来回切换的时候,工具栏图标显示是切换回来了,但是并没有 2.多切换几次也没有用,只有去别的输入页面再回来才会正...
  • qq_32452623
  • qq_32452623
  • 2017年07月20日 22:52
  • 4311

关于切换程序输入法变成全角。

一.控件输入法全角/半角解决方案    直接把控件的imemode = imdemode.kankanhalf,强制转化成半角就OK。   二.窗体输入法全角/半角解决方案    using...
  • Andrewaishang
  • Andrewaishang
  • 2015年07月17日 17:06
  • 311
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:dephi 程序输入法中英文自动切换实现的源代码
举报原因:
原因补充:

(最多只允许输入30个字)