Delphi – Karakter Angka Saja Pada Edit Box

• 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 2 3 4

procedure Tfrmmateri33.btnkeluarClick(Sender: TObject); begin   close; end;

Edit Box hanya bisa diisi oleh angka saja.

1 2 3 4 5

procedure Tfrmmateri33.editangkaKeyPress(Sender: TObject; var Key: Char); begin   if not ( key in['0'..'9', #8, #13]) then     key:= #0 ; 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

klik disini