HELLO, Visitor

Mefilter input pada EditBox

Go down

Mefilter input pada EditBox

Post by Admin on Fri Oct 14, 2011 3:49 pm

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); happy bnget happy bnget
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; Sleep Sleep

avatar
Admin
Admin
Admin

Leo

Jumlah posting : 69
Points : 2777
Reputation : 2
Join date : 10.10.11
Age : 33
Lokasi : Kolaka,sultra Indonesia

http://cyber.forum-canada.com

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik