Validasi Input Pada Delphi

Hallo Sahabat GapTek..

Kali ini saya akan sedikit share ilmu tentang bagaimana input hanya angka saja. Maksud saya lihat di gambar tanda merah, pada input no tlp tersebut sudah jelas hanya boleh dengan input angka saja. Nah untuk itu maka begini caranya :

1. Klik Tedit, kemudian double klik pada even onkeypress nya.

2. Setelah itu pada bagian koding nya isikan seperti ini :

procedure TPelanggan.ednotlpKeyPress(Sender: TObject;var Key: Char);

begin

If not(Key in['0'..'9',#8]) then Key:=#0

end;

Oke cukup simpel kan, dan coba deh run lalu ketik selain angka..
Semoga bermanfaat sahabat :)