Karakter Angka Saja Pada Edit Box Di Delphi

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Senin Pagi ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.

Nah ada Pagi hari ini saya mau berbagi tips materi Delphi dengan Tema Karakter Angka Saja Pada Edit Box. Dimana saat kita melakukan pengisian Edit Box hanya bisa diisi dengan angka saja. Dimana saat edit box di isikan karakter abjad tidak akan bisa yang biasa kita gunakan untuk Edit Box Harga atau Pengisian lainnya yang hanya membutuhkan Angka, monggo disimak ya.

Untuk Mempersingkat waktu, Langsung aja kita praktekkan ya.

• Pertama-tama temen temen bisa buat design form sebagai berikut :

• Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

• Saat program berjalan setfocus pada edit box.
• Saat Edit Di Ketikkan Maka hanya bisa memasukkan angka saja dari 0 s/d 9 jika abjad tidak bisa diketikan.
• jika button keluar diklik makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.

1	procedure Tfrmmateri33.btnkeluarClick(Sender: TObject);

2

begin

3

close;

4

end;

Edit Box hanya bisa diisi oleh angka saja.

1	procedure Tfrmmateri33.editangkaKeyPress(Sender: TObject; var Key: Char);

2

begin

3	if not ( key in['0'..'9', #8, #13]) then

4	key:= #0 ;

5

end;

Jika button keluar di Klik maka keluar dari program.

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

Saat Edit Nama di isi hanya bisa diisi dengan Angka Saja.

Button Keluar di Klik makan akan keluar dari program

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Karakter Angka saja pada Edit Box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini .

Delphi – Materi 32 Karakter Angka Saja Pada Edit Box