{
  功能:模拟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);
...[ 查看全文 ]