Delphi - Mefilter input pada EditBox
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;
Seja o primeiro a comentar
Posting Komentar