老兄,可不可以指点一二我好急啊,而对输入法的API有看不懂
解决方案 »
- 关于 手机号段查询归属地 的问题
- tstream类型怎么转换为 istream!!!急.
- delphi高手愿意兼职的看过来
- 请问利用updata怎样实现复制一个字段的某一部分内容到另一字段?
- 阴差阳错:两次相亲 竟然遇到同一个姑娘![转载]
- missing right quote??怎么回事?
- 打开窗口问题?解决后立刻结帐!
- delphi中如何使用日期字段过滤,带有格式(yyyy-mm),在线等待!急!
- 怎么处理光标?
- 在TWebBrowser控件里打开网页后,右击TWebBrowser控件是IE的菜单,如何使用自己的菜单或是屏蔽这个菜单?
- 关于stringgrid的 问题 ,急~!!
- 怎样在mdi主窗体内放置按钮等控件?
(* Chien's IME Tool Library
(* ========================
(* 环境需求:
(* Windows 95 中文版 + Delphi 2
(*
(* Updated on 1996.11.12
(*
(* 特别声明: 本单元可以免费自由应用与散播, 条件如下:
(* 1. 请发一封 E-Mail 给我, 以便日后版本修订时能通知到您
(* 2. 由于是免费的单元且原始程序已公开, 所以我并不负担您
(* 程序除错维护或资料损失的任何责任.
(*
(* 作者: 钱达智(Wolfgang Chien)
(* E-Mail: [email protected]
(* -------------------------------------------------- *)
unit IME95;
// 这些函式, 我通常是在 Edit 的 OnDblClick 事件中呼叫测试interfaceuses
Windows, Messages, SysUtils, IMM,
Classes, Graphics, Controls, Forms;
// 请注意, IMM.PAS 必须置于与本单元同一目录或
// 主选单 Tools | Options | Library Path 中的任一个目录
// IMM.PAS 可在 Delphi 2.0 的 Source\Rtl\Win 目录中找到const
nHKL_LIST = 20;type
TImeUIWindow = class(TCustomControl)
private
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
procedure ShowComposition(ptWhere: TPoint; const sHint: string); virtual;
// function IsHintMsg(var Msg: TMsg): Boolean; virtual;
// procedure ReleaseHandle;
property Caption;
property Canvas;
property Color;
end;// 显示某一输入法的设定对话盒
function ShowIMEConfigDialog(hKB: HKL): BOOL; far;// 指定某一窗口的中英输入模式
procedure ToChinese(hWindows: THandle; bChinese: boolean); far;// 下一个输入法(等于仿真预设的 Ctrl + Shift)
procedure NextIME; far;// 侦测目前作用中的输入法文件名称
function GetImeFileName: string; far;// 切换到指定的输入法
function SetActivateIme(sWanted: string): boolean; far;// 切断到中文输入法, 同时指定全/半角
function ImeFullShape(hWindow: HWND; bToFullShape: BOOL): BOOL; far;// 送入一段字符串到指定的窗口
procedure SendDBCSString(hFocus: HWND; const sSend: string); far;// 取得目前的拆字字根
function GetImeCompositonString(hWindow: HWND): string; far;// 取得目前的拆字结果
function GetImeCompositonResult(hWindow: HWND): string; far;// 取消某次的组字过程
procedure CancelComposition(hWindow: THandle); far;// 设定组字字根
procedure SetImeCompositonString(hWindow: THandle; const sCompStr: string); far;// 显示/不显示屏幕小键盘
function ShowSoftKeyboard(hWindow: HWND; bShowIt: BOOL): BOOL; far;// 要不要相关字词功能
function PhrasePredict(hWindow: HWND; bPredict: BOOL): BOOL; far;// 查询某字的组字字根
function QueryCompStr(hKB: HKL; const sChinese: AnsiString): string; far;// --------------------------------------------------
// --------------------------------------------------
implementation
小弟看不懂,可不可以解释一下再次谢了