模拟Nokia手机输入的编辑框

最新推荐文章于 2023-02-15 18:20:16 发布

原创最新推荐文章于 2023-02-15 18:20:16 发布 · 1.5k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#nokia #手机 #integer #function #destructor

基础类专栏收录该内容

9 篇文章

订阅专栏

该博客主要介绍了模拟Nokia手机输入法控件的实现，此控件继承自TCustomEdit。代码中定义了相关类和属性，包含构造函数、析构函数及多个功能函数，如按键处理、字符搜索等，还实现了定时器功能，最后完成组件注册。

{
功能：模拟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);
    function GetTimerEnabled: Boolean;
    procedure SetTimerEnabled(const Value: Boolean);
    function GetTextLength: Integer;
    { Private declarations }
protected
    { Protected declarations }
    FTimer: TTimer;
    procedure OnTimer(Sender: TObject);virtual;
    property TimerEnabled: Boolean read GetTimerEnabled write SetTimerEnabled;
    procedure KeyPress(var Key: Char); override;
    function IndexByChar(const Key: Char): KeysetInt;
    function SearchNextChar(const Index: KeysetInt; Key: Char): Char;
    function SearchFirstChar(const Index: KeysetInt): Char;
    function EndOfChar(const Value: string): Char;
public
    { Public declarations }
    constructor Create(AOwner: TComponent);override;
    destructor Destroy;override;

    property TextLength: Integer read GetTextLength;
published
    { Published declarations }
    property MaxLength default 1;
    property Interval: Integer read FInterval write FInterval;
    property Keyset: TStrings read FKeyset write SetKeyset;
    property Font;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('CoolSlob', [TNokiaEdit]);
end;

{ TNokiaEdit }

constructor TNokiaEdit.Create(AOwner: TComponent);
begin
inherited;
FKeySet := TStringList.Create;
FTimer := TTimer.Create(Self);
FTimer.OnTimer := OnTimer;
end;

destructor TNokiaEdit.Destroy;
begin
FKeySet.Free;
FKeySet := nil;
inherited;
end;

function TNokiaEdit.EndOfChar(const Value: string): Char;
begin
if Value = '' then Result := #0
else Result := Value[Length(Value)];
end;

function TNokiaEdit.GetTextLength: Integer;
begin
Result := Length(Trim(Text));
end;

function TNokiaEdit.GetTimerEnabled: Boolean;
begin
Result := FTimer.Enabled;
end;

function TNokiaEdit.IndexByChar(const Key: Char): KeysetInt;
//
var
I: Integer;
begin
Result := -1;
if not Assigned(FKeyset) then Exit;
for I := 0 to FKeyset.Count - 1 do
begin
    if Pos(Key, FKeyset.Strings[I]) > 0 then
    begin
      Result := I;
      Break;
    end;
end;
end;

procedure TNokiaEdit.KeyPress(var Key: Char);
var
CurIndex, NewIndex: KeysetInt;
S: string;
CurChar: Char;
Selected: Boolean;
begin
inherited;
if Key in ['0'..'9'] then
begin
    FTimer.Enabled := False;
    if TextLength = 0 then CurIndex := -1
    else CurIndex := IndexByChar(Text[Length(Text)]);
    NewIndex := Ord(Key) - 48;
    if CurIndex = NewIndex then
    begin
      CurChar := EndOfChar(Text);
      S := Text;
      Selected := WordBool(SelLength);
      Delete(S, SelStart + 1, SelLength);
      Text := S;
      if (not Selected)or(CurChar='') then Text := Text + SearchFirstChar(CurIndex)
      else Text := Text + SearchNextChar(CurIndex, CurChar);
    end
    else
      Text := Text + SearchFirstChar(NewIndex);

    SelStart := Length(Text) - 1;
    SelLength := 1;
    FTimer.Enabled := True;
    Key := #0;
end;
end;

procedure TNokiaEdit.OnTimer(Sender: TObject);
begin
SelLength := 0;
SelStart := Length(Text);
FTimer.Enabled := False;
end;

function TNokiaEdit.SearchFirstChar(const Index: KeysetInt): Char;
var
S: string;
begin
Result := #0;
S := FKeyset.Strings[Index];
if S <> '' then Result := S[1];
end;

function TNokiaEdit.SearchNextChar(const Index: KeysetInt;
Key: Char): Char;
var
I: Integer;
S: string;
begin
S := FKeyset.Strings[Index];
I := Pos(Key, S);
if I = Length(S) then I := 1
else I := I + 1;
Result := S[I];
end;

procedure TNokiaEdit.SetKeyset(const Value: TStrings);
begin
if Assigned(FKeyset) then FKeySet.Assign(Value)
else FKeyset := Value;
end;

procedure TNokiaEdit.SetTimerEnabled(const Value: Boolean);
begin
if FTimer.Enabled <> Value then
FTimer.Enabled := Value;
end;

end.