Delphi – Karakter Angka Saja Pada Edit Box

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.

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

Edit Box hanya bisa diisi oleh angka saja.

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

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

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 _______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Fungsi Enter Pada Edit Box

–          Delphi – Simulasi Lampu Lalu Lintas

–          Delphi – Animasi Teks Zoom

_______________________________________________________________________________

4 thoughts on “Delphi – Karakter Angka Saja Pada Edit Box

  1. Ping-balik: Delphi Request – Timer Hitung Mundur Games | Catatan Eko

  2. Ping-balik: Delphi Request – Play Sound Wave | Catatan Eko

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s