当前位置:w88优德官网网文章中心网站开发其他 → Delphi下编程实现中文输入

Delphi下编程实现中文输入

减小字体 增大字体 作者:admin  来源:www.cuoxin.com  发布时间:2015-12-8 0:37:22
      BorlandDelphi以其强大的功能及和高效的可 视化开发环境为广大程序设计员所青睐。尤其是它封装了WINDOWSAPI函数,能方便地利 用WINDOWS资源,大大加快了程序开发速度。
  在平时的计算机操作中,中文输入是不可避免的。 使用者可能喜欢不同的中文输入法(inputmethodeditor,简称IME),这就不得不经常点击 任务栏中的中文图标或用CTRL+Space,CTRL+Shift热键切换,初学者用起来很不方便。针对 这一问题,可以在开发软件时,在程序中设置用户喜欢的中文输入法,方便用户的使用。Delphi 中只有少数控件如TEdit支持IME,而且该功能不强,不能在运行时更改输入法。   笔者通过实践和摸索,查找了相关的IME资料,利 用了WINDOWSAPI函数,实现了IME的功能。
  常用函数有:
API函数:BOOLImmSimulateHotKey
(HWNDhWnd,DWORDdwHotKeyID);//模拟热键
其中Hwnd为程序窗口的句柄,dwHotHKeyID
为模拟的热键,若成功则返回True
HKLGetKeyboardLayout(DWORDdwLayout);
//获得当前键盘状态

BOOLImmIsIME(HKLhKL);
//判断当前是否处于中文输入状态,若是则返回True
自定义函数:
打开相应输入法:OpenIme(imename:string),
例OpenIme(全拼输入法);
关闭中文输入法:CloseIme;
以下是一个简单的例子,仅起参考作用。使用时uses中加上imm具体的实现方法及源代码如下:
unitUnit1;
interfaceuses
Windows,Messages,SysUtils,Classes,
Graphics,Controls,Forms,Dialogs,
StdCtrls,Buttons,imm;
type
TForm1=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;
var
Form1:TForm1;
implementation{$R*.DFM}procedureTForm1.FormShow(Sender:TObject);
var
j:integer;
begin
forj:=0toscreen.imes.count-1do
begin
ComBoBox1.Items.Add(screen.Imes.strings[j]);
//获取系统中已安装的中文输入法
end;
end;
procedureTform1.OpenIme(imename:string);
var
I:integer;
myhkl:hkl;
begin
ifImeName<>then
begin
ifScreen.Imes.Count<>0then
begin
I:=scr .Imes.indexof(imename);
ifI>=0then
myhkl:=hkl(screen.Imes.objects[i]);
activatekeyboardlayout(myhkl,
KLF_ACTIVATE);//设置相应的输入法
end;
end;
end;
procedureTForm1.closeime;
var
myhkl:hkl;
begin
myhkl:=GetKeyBoardLayOut(0);
ifImmIsIME(myhkl)then
//判断是否在中文状态,若是则关闭它
immsimulateHotkey(handle,
IME_CHotKey_IME_NonIME_Toggle);
end;
procedureTForm1.ComboBox1Change(Sender:TObject);
begin
OpenIme(ComboBox1.Text);
end;
procedureTForm1.BitBtn1Click(Sender:TObject);
begin
immsimulateHotkey(handle,
IME_CHotKey_shape_Toggle);//切换半角和全角模式
end;
procedureTForm1.BitBtn2Click(Sender:TObject);
begin
immsimulateHotkey(handle,
IME_CHotKey_symbol_Toggle);
//切换中文标点模式和英文标点模式
end;
procedureTForm1.BitBtn3Click(Sender:TObject);
begin
closeime;
end;
end.

本文引用网址:
在下列搜索引擎中搜索“Delphi下编程实现中文输入”的相关信息:
谷歌搜索 百度搜索 360搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1王梦溪未经处理雅照120P完整艳...
  • 2如何做爱真人示范图片 男女ML常...
  • 3王梦溪未经处理照曝光 王梦溪口...
  • 4雨后小故事、雨后小故事01动态...
  • 5情侣酒店开房qvod 情侣做爱视频...
  • 1女性18岁身份证号大全 成年女人...
  • 24月20日免费送QQ号,5位QQ,6位...
  • 3织梦dedecms 忘记管理员后台密...
  • 417岁女孩身份证号大全 18岁女孩...
  • 5DedeCMS提示Call to a member ...
  • 1什么姿势女的最爽?最刺激的做...
  • 2兰州警花王梦溪裸照全集视频 王...
  • 3合肥艳照门事件 合肥艳照门全套...
  • 4中国女大学生的淫靡生活
  • 590后女高潮表情 美女高潮表情最...
  • 1Linux 避免IO hang方法
  • 2linux服务器在运行210天左右宕...
  • 3基于反向代理的Web缓存加速现代...
  • 4巧识硬盘“变”大的伎俩
  • 5服务器入门:菜鸟必须了解的五...
  • 赞助商广告

    图片文章导读