object Form1: TForm1
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Ke-HP-HP-an ^_^'
  ClientHeight = 74
  ClientWidth = 194
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = 
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 92
    Height = 13
    Caption = 'Key yg dijinkan 0..9'
  end
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 3
    Height = 13
  end
  object Edit1: TEdit
    Left = 8
    Top = 24
    Width = 177
    Height = 21
    TabOrder = 0
    OnKeyPress = Edit1KeyPress
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 160
    Top = 40
  end
end

unit KeyLikeHP;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CPos: byte;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const 
  sacu1 : string = '0 ²1,.-!?²2abc²3def²4ghi²5jkl²6mno²7pqrs²8tuv²9wxyz²';
  procedure resetTimer;
  begin
    if Timer1.Enabled then begin
      Timer1.Enabled := False;
    end;
    Timer1.Enabled := True;
  end;
  procedure siapinKar;
  begin
    Label2.Caption := copy(sacu1, pos(key, sacu1)+1, 
      pos('²', copy(sacu1, pos(key, sacu1), Length(sacu1)))-2)+key;
    CPos := 1;
    resetTimer;
  end;
begin
  if key in  then begin
    if Label2.Caption = '' then begin
      siapinKar;
    end else begin
      if pos(key, Label2.Caption) > 0 then begin
        inc(CPos);
        if CPos > Length(Label2.Caption) then begin
          CPos := 1;
        end;
        Edit1.SelStart := Edit1.SelStart-1;
        Edit1.SelLength := 1;
      end else begin
        siapinKar;
      end;
    end;
    key := Label2.Caption[CPos];
    resetTimer;
  end else begin
    if key <> chr(vk_back) then begin
      key :=#0;
    end;
  end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label2.Caption := '';
  Timer1.Enabled := False;
end;
end.

const 
  sacu1 : string = '0 ²1,.-!?²2abc²3def²4ghi²5jkl²6mno²7pqrs²8tuv²9wxyz²';

const 
  sacu1 : string = '0 ²1,.-!?¿²2abcâäàåáæ窲3deféêë胲4ghiíïîì²5jkl£²'+
                   '6mnoñóôöò²7pqrs²8tuvûùúü²9wxyzÿ¥²';

@sky47: posting ke 2 rekan rekan gimana ya membuat inputan keyboard (0..9) tu seperti keypad hp.....jadi jika tombol 1 ditekan sekali jadi huruf a, 2x huruf b gitu....gambarannya persis seperti keypad hp itu ????