Ilmu Delphi - Belajar Cara Membuat Karakter Angka Saja Pada Edit Box - - - Selamat malam sahabat ini hari mulyatutorial akan kembali membahas tentang delphi, setelah sekian lama admin mulyatutorial tidak mengotak - atik blog delphi, biasanya ketika admin sering memposting tentang Tips Delphi itu ketika admin sedang dibangku kuliah, karena adanya tugas, Naah ini hari admin hanya iseng-iseng gak ada kerjaan jadi mengotak-atik sebuah delphi kembali dan tertarik untuk membagikan kepada teman - teman yang sedang mendalami ilmu delphi.
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.
Mungkin tidak perlu lagi pernjang lebar yach, pasti sahabat delphi sudah sangat ingin melihat tips membuat karakter angka saja pada edit box, ntah apa tujuan teman - teman yang ingin membuat karakter angka saja pada delphi, apakah hanya untuk iseng - iseng atau ingin mendalami delphi atau bahkan memiliki job untuk membuat sebuah aplikasi dari delphi, Yaa semua itu terserah teman - teman yang pasti admin mulyatutorial percaya bahwa teman - teman ingin membuat karakter angka saja pada edit box di delphi pasti memiliki manfaat yang sangat besar untuk teman - teman, kalau begitu silahkan saja lihat dibawah ini dengan perlahan agar dapat dipahami.
Pertama-tama temen temen bisa buat design form
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 code Membuat Karakter Angka Saja Pada Edit Box
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.
Demikianlah yang dapat mulyatutorial sampaikan semoga tips delphi ini sangat bermanfaat dan bisa digunakan oleh teman - teman yang ingin belajar lebih dalam tentang delphi.
