控制与捕捉输入法的实现单元

原创文章，转载请保留信息 得闲笔记欢迎您   www.cnblogs.com/dxsoft

  作者：不得闲

  今天，有个朋友问，如何去实现让一个输入控件，比如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;