Input Angka Pada Komponen Edit di Delphi 7

Selanjutnya saya akan berbagi bagaimana cara input hanya berupa angka pada komponen edit di Delphi 7. Dengan cara ini kita dapat mengatur pengisian input edit text hanya bisa diisi dengan angka saja. Biasanya digunakan untuk memasukkan nilai yang berhubungan dengan harga atau jumlah, agar tidak terjadi kesalahan pada perhitungannya. Baiklah tak perlu panjang lebar langsung saja kita ke TKP.

Pilih komponen Edit yang akan diatur untuk inputan hanya berupa angka kemudian perhatikan Object Inspector pada tab Event Pilih OnKeyPress klik 2 kali kemudian akan masuk ke kode editor kemudian ketikan scriptnya berikut ini :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'...'9',#8]) then 
   key := #0;
end; 

Selamat mencoba...

Related Post:

8 comments:

  1. Asyiiik belajar Delphi lagi...
    makasih ya kawan

    ReplyDelete
  2. nice info kk, tp saya blm bljr delphi bru VB sma JCreator...

    ReplyDelete
  3. kurang ngarti ane tentang delphi..
    izin nyimak aja ya kawan.. :D

    ReplyDelete
  4. wah bagus sekali infonya sob..

    ReplyDelete
  5. bagus. terimakasih ya bang! :D

    ReplyDelete
  6. jika didalam keypress kita sudah memiliki perintah enter
    If Key=#13 then
    bagaimana cara memasukkan entri data hanya angka saja
    if not (key in['0'..'9', #8]) then
    key:=#0;

    ReplyDelete
  7. maaf saya sudah mendapatkan jawabannya, semoga bisa bermanfaat untuk yg lain yg memiliki masalah yg sama

    if not (key in['0'..'9', #8, #13]) then //memperbolehkan tombol Enter
    key:=#0;
    if Key=#13 then
    begin
    (listing program jika enter di tekan)
    end;

    ReplyDelete
  8. Terima kasih banyak teman, mau tanya bagiaman kalau menampilakn hasil perhitungan pada delphi tapi outputnya bilangan desimal..mohon bantuannya...

    ReplyDelete

Berikan respon yang relevan. Salam semangat ^_^