Sudah lama nian enggak mengupdate blog ini, bukan..bukan karena saya blogger murtad, tapi lebih karena kerjaan yang enggak selesai-selesai sejak lulus kuliah.

Jika kita membuat sebuah aplikasi yang berhubungan dengan retail, POS (point of sales) atau semacamnya. pastinya ada edittext yang harus dibatasi pengisiannya, misalnya untuk harga jual. Di situ harus dibatasi agar user tidak bisa mengetikkan huruf ABCDE, user hanya boleh mengetikkan angka saja.

Caranya, tuliskan syntax ini pada event on keydown :

if not (((key>=’0′) and (key<=’9′)) or (key=#8)) then
key:=#0;

Oke, sekian tutorial singkat saya.  Jika ada pertanyaan tentang delphi programming silakan isi comment di bawah ini atau tanya ke saudara perguruan saya yang geje.
Happy coding….

Advertisement