Tutorial Kali ini yaitu Keyword TEDIT, dimana kita bisa menentukan apa saja yang bisa kita ketik di TEdit dengan Keyboard yang kita inginkan, program ini sangat sederhana dengan menggunakan CASE  KEY OF.  Tidak perlu basa basi lagi langsung aja Ke Tutorial nya silahkan Free Dowload Tutorial Keyword TEDIT Dibawah ini :

Download


>>Link<<
>>Mirror Link<<

Code Lengkapnya :


=======================BEGIN PROGRAM==================
unit Unit1;
// http://www.olvandra.blogspot.com    //
// http://www.meanddelphi.blogspot.com //



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// ========================================== Yang di bisa di input di TEDIT//
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Case Key Of
    '0': Exit;
    '1': Exit;
    '2': Exit;
    '3': Exit;
    '4': Exit;
    '5': Exit;
    '6': Exit;
    '7': Exit;
    '8': Exit;
    '9': Exit;
    '.': Exit;
    #8 : Exit; {Backspace}
    ',' : Exit; {koma}
    'R' : Exit; {R}
    'p' : Exit; {p}
    '-' : Exit; {Minus}
  End;
  Key := #0;   {Throw the key away}
end;

end.
==============================END PROGRAM==========================