今天，有个朋友问，如何去实现让一个输入控件，比如Edit中不能输入中文！而且不能让用户切换到任何其他输入法，始终保持为英文输入！群中很多人都说用ImeCode等来控制，这个控制是没错！但是，本控制无法控制使用的过程中用户自己切换输入法的问题，此时我们应该不让用户去切换输入法！所以最终的实现方式，应该对系统的IME的消息进行拦截来达到目的，在以前做游戏中弹出窗口输入信息时，需要自己模拟输入法的信息，然后在游戏内部窗口中绘制出输入法的相关信息，那时对输入法的控制有研究过几天，而且也基本上实现了对输入法的输出信息进行捕捉和控制等！现在将那个东西开源出来，以便于大家共同探讨提高！
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.
完整代码下载请访问作者博客：http://files.cnblogs.com/DxSoft/ImeOperateDemo.rar
