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

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

  作者：不得闲

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

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

详细代码：

(******************************************************)
(*                得闲工作室                          *)
(*          输入法截获与控制单元库                    *)
(*                                                    *)
(*       DxImeOperControl Unit                        *)
(*     DxImeOperControl  Version 1.x                  *)
(*    Copyright(c) 2009-2010    不得闲                *)
(*    email:appleak46@yahoo.com.cn     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.