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
begin
if not (key in ['0'...'9',#8]) then
key := #0;
end;
end;
Selamat mencoba...
Related Post:
l/Delphi
Asyiiik belajar Delphi lagi...
ReplyDeletemakasih ya kawan
nice info kk, tp saya blm bljr delphi bru VB sma JCreator...
ReplyDeletekurang ngarti ane tentang delphi..
ReplyDeleteizin nyimak aja ya kawan.. :D
wah bagus sekali infonya sob..
ReplyDeletebagus. terimakasih ya bang! :D
ReplyDeletejika didalam keypress kita sudah memiliki perintah enter
ReplyDeleteIf Key=#13 then
bagaimana cara memasukkan entri data hanya angka saja
if not (key in['0'..'9', #8]) then
key:=#0;
maaf saya sudah mendapatkan jawabannya, semoga bisa bermanfaat untuk yg lain yg memiliki masalah yg sama
ReplyDeleteif 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;
Terima kasih banyak teman, mau tanya bagiaman kalau menampilakn hasil perhitungan pada delphi tapi outputnya bilangan desimal..mohon bantuannya...
ReplyDelete