Agar EditBox hanya bisa menerima input karakter tertentu saja. Sebagai
contoh agar EditBox hanya bisa diisi dengan bilangan, bukan karakter
huruf.
Program berikut menunjukkan cara agar EditBox hanya bisa
diisi dengan bilangan heksadesimal, yakini (0..9) , (A..F) , atau
(a..f).
Procedure TFrom1.Edit1KeyPress (sender: TObject; Var Key: Char);
begin
if not(((Key>#48) and (key<=#57)) 0r ((key>=#65) and
(key<=#70)) or (key>=#97) and (key<=#102)) or (key=#8)) then
key:= #0;
end;
Related Posts
Download Delphi XE5 Full versi
25 Dec 20130Hahh.... Akhirnya dengan berselancarnya didunia maya yg penuh kontroversi ini membuahkan hasil yg me...Read more »
Menjalankan Gammu Dengan Delphi
17 Jun 20130SMS Gateway, sebenarnya itu judul yang akan saya tuliskan pada tulisan kal...Read more »
Contoh aplikasi delphi
11 May 20130Delphi adalah paket bahasa pemrograman yang bekerja dalam system...Read more »
Membuat Serial Number untuk Aplikasi di Delphi 7
10 May 20130Suatu ketika saya ingin membuat proteksi pada program saya sehingga hanya bisa di install di sat...Read more »
Penggunaan Komponen ListBox Di Delphi 7
28 Oct 20120Komponen ListBox digunakan untuk menampilkan sekumpulan item yang akan dijadikan sebagai pilihan. Ke...Read more »
Subscribe to:
Post Comments
(
Atom
)
Newbieeeeeee
ReplyDelete