HanDs
NO.2

[Delphi文章] 控制与捕捉输入法的实现单元 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

今天,有个朋友问,如何去实现让一个输入控件,比如Edit中不能输入中文!而且不能让用户切换到任何其他输入法,始终保持为英文输入!群中很多人都说用ImeCode等来控制,这个控制是没错!但是,本控制无法控制使用的过程中用户自己切换输入法的问题,此时我们应该不让用户去切换输入法!所以最终的实现方式,应该对系统的IME的消息进行拦截来达到目的,在以前做游戏中弹出窗口输入信息时,需要自己模拟输入法的信息,然后在游戏内部窗口中绘制出输入法的相关信息,那时对输入法的控制有研究过几天,而且也基本上实现了对输入法的输出信息进行捕捉和控制等!现在将那个东西开源出来,以便于大家共同探讨提高!示例截图:

从图中可以看出,基本上实现了将输入法的信息截获显示在下面的Label控件中,并且有对每个Edit的输入法做相应的控制!

详细代码:

 

(******************************************************)
(* 得闲工作室 *)
(* 输入法截获与控制单元库 *)
(* *)
(* DxImeOperControl Unit *)
(* DxImeOperControl Version 1.x *)
(* Copyright(c) 2009-2010 不得闲 *)
(* email:[email protected] QQ:75492895 *)
(******************************************************)
unit DxImeOperControl;

interface
uses Windows,SysUtils,Messages,Classes,Imm,Controls,Forms;

type
TDxImeControl
= class;

pControlRec
= ^TControlRec;
TControlRec
= record
LinkControl: TWinControl;
OldWndProc: Pointer;
OldWndMethod: TWndMethod;
OwnIme: TDxImeControl;
end;

TImeChangeEvent
= procedure(Sender: TObject;ImeControl: TWinControl;ImeName: string;ImeFileName: string;var AcceptChange: Boolean) of object;
TImeKeyChangeEvent
= procedure(Sender: TObject;ImeControl: TWinControl;KeyInputStr: string;CursorPos: integer;InResult: string)of object;
TImeKeyResultEvent
= procedure(Sender: TObject;ImeControl: TWinControl;InputResult: string) of object;
TImeCandListOpenEvent
= procedure(Sender: TObject;ImeControl: TWinControl;List: TStrings) of object;
TNotifyInfo
= (SetConversionModeInfo,OpenCandDateInfo,ChangeCandDateInfo,CloseCandDateInfo);
{通知类型:全半角/中英文标点变化,进入选字,翻页,关闭选字列表}
TImeNotifyEvent
= procedure(Sender: TObject;NotifyInfo: TNotifyInfo) of object;
TDxImeControl
= class(TComponent)
private
FLinkHandle: THandle;
FImc: HIMC;
FLinkForm: TCustomForm;
FOnImeActive: TNotifyEvent;
FEnabled: boolean;
FOnImeChange: TImeChangeEvent;
FOnKeyInput: TImeKeyChangeEvent;
FPageCount: Integer;
FCurrentPage: Integer;
CandList: TStringList;
KeyBoardLayOut: Integer;
FShowSoftKeyBoard: Boolean;
FOnKeyInputed: TImeKeyResultEvent;
FOnStartKeyInput: TNotifyEvent;
FCurrentHwnd: THandle;
FImeName:
array[0..50] of char;
FOnImeNotify: TImeNotifyEvent;
FOnCandListOpen: TImeCandListOpenEvent;
FShowOpenStatus: Boolean;
FKeyListStr:
string;
procedure SetLinkHandle(const Value: THandle);
function GetImeCompositonString: string;
function GetImeResult: string;
function GetImeOpen: Boolean;
procedure SetLinkForm(const Value: TCustomForm);
procedure SetEnabled(const Value: boolean);
procedure RestoreLinkWndProc;
procedure SetShowSoftKeyBoard(const Value: Boolean);
procedure setCurrentHwnd(const Value: THandle);
procedure SetShowOpenStatus(const Value: Boolean);
function GetShowOpenStatus: Boolean;
function GetImeName: string;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
function SetInputIme(Control: TWinControl;ToImeFileName: string): Boolean;//设置输入法
procedure SetIme(Control: TWinControl;AImeName: string);
procedure SetCompositionString(Control: TWinControl;SetStr: string);//设定组字字符
property InputStr: string read GetImeCompositonString;//获得正在输入的字符串
property InputResult: string read GetImeResult;//获得输入的选字结果
property LinkForm: TCustomForm read FLinkForm write SetLinkForm;//指定连接上哪个窗体,连接上的窗体都会被处理
property Imc: HIMC read FImc;
property ImeName: string read GetImeName;
property ImeOpen: Boolean read GetImeOpen;
property PageCount: Integer read FPageCount;
property CurrentPage: Integer read FCurrentPage;
procedure GetCandList(FCandList: TStrings;Page: Integer=0);//获得侯选字列表
property CurrentHwnd: THandle read FCurrentHwnd write setCurrentHwnd;
procedure ChangeToChinese(ChangeControl: TWinControl;ChangeChildren: Boolean=true;ToChinese: Boolean=true);
procedure NextIme;
property KeyListStr: string read FKeyListStr;
published
property Enabled: boolean read FEnabled write SetEnabled; //是否可用,捕获输入法消息
property OnImeActive: TNotifyEvent read FOnImeActive write FOnImeActive;//输入法激活时触发
property OnImeChange: TImeChangeEvent read FOnImeChange write FOnImeChange;//输入法改变时触发事件
property OnKeyInput: TImeKeyChangeEvent read FOnKeyInput write FOnKeyInput;//输入时触发
property OnKeyInputed: TImeKeyResultEvent read FOnKeyInputed write FOnKeyInputed;
property OnStartKeyInput: TNotifyEvent read FOnStartKeyInput write FOnStartKeyInput;

//property ShowSoftKeyBoard: Boolean read FShowSoftKeyBoard write SetShowSoftKeyBoard;//是否显示小键盘
property OnImeNotify: TImeNotifyEvent read FOnImeNotify write FOnImeNotify;
property OnCandListOpen: TImeCandListOpenEvent read FOnCandListOpen write FOnCandListOpen;
property ShowOpenStatus: Boolean read GetShowOpenStatus write SetShowOpenStatus;
end;
implementation
var
WndList: TList;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
控制 捕捉 输入法 实现 单元
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组