Cara membuat TextEdit Form hanya bisa dimasukan Angka saja pada Delphi

Bertemu lagi dengan saya Een Pahlefi. Saya akan berbagi tutorial cara membuat textedit hanya bisa di masukan angka saja. Karna di beberapa kasus, apabila kita setting type penyimpanan di database itu berupa integer, dan di form textedit user memasukan type varchar, maka hasil nya akan error. Nah kali ini saya akan memberikan ilmu yang saya tahu agar bermanfaat bagi yang menemukan kasus sama seperti saya ini.

Baiklah langsung saja.

1. Buka delphi anda. Bebas 2007/2010/XE

2. Pada form textedit, lihat disebelah kiri anda pada bagian Object Inspector pilih menu tab events, selanjutnya cari OneKeyPress, dan klik 2 kali pada OneKeyPress tersebut.

3. Copy paste script berikut : if not (key in ['0'..'9', #8, #13, DecimalSeparator]) then

key:=#0;

4. Coba anda jalankan. taraa.. inputan gk bisa huruf, wajib angka.


Penulis : Een Pahlefi
Semoga Bermanfaat