网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 交易代码 > Delphi精品代码 > 正文
Delphi下编程实现中文输入
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 10/11/06
BorlandDelphi以其强大的功能及和高效的可 视化开发环境为广大程序设计员所青睐。尤其是它封装了WINDOWSAPI函数,能方便地利 用WINDOWS资源,大大加快了程序开发速度。

  在平时的计算机操作中,中文输入是不可避免的。 使用者可能喜欢不同的中文输入法(inputmethodeditor,简称IME),这就不得不经常点击 任务栏中的中文图标或用CTRL+Space,CTRL+Shift热键切换,初学者用起来很不方便。针对 这一问题,可以在开发软件时,在程序中设置用户喜欢的中文输入法,方便用户的使用。Delphi 中只有少数控件如TEdit支持IME,而且该功能不强,不能在运行时更改输入法。

  笔者通过实践和摸索,查找了相关的IME资料,利 用了WINDOWSAPI函数,实现了IME的功能。

  常用函数有:

API函数:BOOLImmSimulateHotKey(HWNDhWnd,DWORDdwHotKeyID);//模拟热键其中Hwnd为程序窗口的句柄,dwHotHKeyID为模拟的热键,若成功则返回TrueHKLGetKeyboardLayout(DWORDdwLayout);//获得当前键盘状态BOOLImmIsIME(HKLhKL);//判断当前是否处于中文输入状态,若是则返回True自定义函数:打开相应输入法:OpenIme(imename:string),例OpenIme(全拼输入法);关闭中文输入法:CloseIme;以下是一个简单的例子,仅起参考作用。使用时uses中加上imm具体的实现方法及源代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Buttons,imm;typeTForm1=class(TForm)ComboBox1:TComboBox;BitBtn1:TBitBtn;BitBtn2:TBitBtn;BitBtn3:TBitBtn;procedureFormShow(Sender:TObject);procedureOpenIme(imename:string);procedurecloseIme;procedureComboBox1Change(Sender:TObject);procedureBitBtn1Click(Sender:TObject);procedureBitBtn2Click(Sender:TObject);procedureBitBtn3Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.DFM}procedureTForm1.FormShow(Sender:TObject);varj:integer;beginforj:=0toscreen.imes.count-1dobeginComBoBox1.Items.Add(screen.Imes.strings[j]);//获取系统中已安装的中文输入法end;end;procedureTform1.OpenIme(imename:string);varI:integer;myhkl:hkl;beginifImeName<>thenbeginifScreen.Imes.Count<>0thenbeginI:=scr   .Imes.indexof(imename);ifI>=0thenmyhkl:=hkl(screen.Imes.objects[i]);activatekeyboardlayout(myhkl,KLF_ACTIVATE);//设置相应的输入法end;end;end;procedureTForm1.closeime;varmyhkl:hkl;beginmyhkl:=GetKeyBoardLayOut(0);ifImmIsIME(myhkl)then//判断是否在中文状态,若是则关闭它immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);end;procedureTForm1.ComboBox1Change(Sender:TObject);beginOpenIme(ComboBox1.Text);end;procedureTForm1.BitBtn1Click(Sender:TObject);beginimmsimulateHotkey(handle,IME_CHotKey_shape_Toggle);//切换半角和全角模式end;procedureTForm1.BitBtn2Click(Sender:TObject);beginimmsimulateHotkey(handle,IME_CHotKey_symbol_Toggle);//切换中文标点模式和英文标点模式end;procedureTForm1.BitBtn3Click(Sender:TObject);begincloseime;end;end.

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
湘ICP备09003080号