Dephi 程序输入法自动切换最简单最好用的实现方法(被程序员杂志采纳,重新详细整理) (转)...

Dephi 程序输入法自动切换最简单最好用的实现方法(被程序员杂志采纳,重新详细整理) (转)[@more@] 前言:

当我们的软件交付用户使用时,特别涉及到大量的数据输入处理时,用户需要频繁的在中英文之间切换,而且用户使用的输入法也不同,有的是 五笔,有的是拼音等等.我们能否在软件中提供一个个性化的输入法选择?当用户选择自己喜欢的输入法时,程序中该输入中文的地方,全部自动切换为中文,该输入英文的地方自动切换为英文.

  这个实现方法比较多,但多很麻烦,因此,虽然很多程序员可以实现,但都感到非常麻烦而放弃!下面是本人的一个非常简单和好用的解决方法.

解决思路:

程序员只需要将窗体中该输入中文的控件的 imemode=imchinese,然后在每个窗体里 create(或active) 事件里调用本人编写的方法ChangeYouFormAllControlIme(frm)即可.在程序中提供一个用户输入法选项供用户选择自己喜欢的输入法,调用显示FRmimeNameList 窗体即可!总之,程序员只需要调用 一个公用 unit(含有窗体的unit) 下的方法: ChangeYouFormAllControlIme(YFormName:TWinControl), 调用显示窗体 FrmImeNameList

实现方法: unit 名字 UnitImeManager  包含的窗体名字 FrmImeNameList

公用 unit的窗体界面 :

  XML:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />Office:office" />ASPectratio="t" v:ext="edit">

界面操作的代码:

  procedure TFrmImeNameList.FormCreate(Sender: Tobject); //列表框加载系统输入法

begin

ListBox1.Items:=screen.Imes;

end;

  procedure TFrmImeNameList.BitBtn1Click(Sender: TObject);//保存用户选择的输入法存放到系统注册表里面

var

Reg:TRegistry;

CustImeName:string;

begin

reg:=TRegistry.Create;

reg.rootKey:=HKEY_LOCAL_MACHINE;

if ListBox1.ItemIndex<>-1 then

  CustImeName:=ListBox1.Items[ListBox1.ItemIndex]

 else

  CustImeName:='中文 (简体) - 智能 ABC';

try

 if Reg.OpenKey('SoftwareIMeCustom', True)  then Reg.WriteString('CustomIMeName',CustImeName);

finally

 reg.CloseKey;

 reg.Free;

end;

FrmImeNameList.Close;

end;

 

公用 unit的方法:

1  更改相应窗体中所有的控件的输入法

  Procedure ChangeYouFormAllControlIme(YFormName:TWinControl); // 需要更改输入法的窗体名称

var

i:integer;

ChildControl:TControl;

Reg:TRegistry;

YouFormOrOTher:Twincontrol;

begin

YouFormOrOTher:=YFormName;

reg:=TRegistry.Create;

//读取注册表保存的用户选择的输入法,用单元全局变量 StrImeName 保存

reg.RootKey:=HKEY_LOCAL_MACHINE;

try

 if Reg.OpenKey('SoftwareIMeCustom',false)=true then

  StrImeName:=reg.ReadString('CustomIMeName');

finally

 reg.CloseKey;

 reg.Free;

end;

//调用方法 JugeClassType(ChildControl) 更改窗体中控件的 ImeMode

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;

2  判断控件类别,更改其 imemode 属性为用户选择的输入法

  procedure JugeClassType(PClass:Tcontrol); //虽然麻烦,但必须具体判断,下面将 dephi 可更改的控件几乎都包含了,没有包含的是使用价值不大.

begin

if pclass is TEdit then  //更改 Tedit 类控件 以下同理

 begin

  if TEdit(pclass).ImeMode=imchinese then

  TEdit(pclass).ImeName:=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;

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-985411/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-985411/