{
功能:模拟Nokia手机的输入法控件,继承自TCustomEdit
作者:CoolSlob
支持:CoolSlob # 163.com
最后更新:2004/12/11
}
unit NokiaEdit;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ExtCtrls, Dialogs;
type
KeysetInt = -1..9; //-1表示发生错误
TNokiaEdit = class(TCustomEdit)
private
FInterval: Integer;
FKeyset: TStrings;
procedure SetKeyset(const Value: TStrings);
...[ 查看全文 ]