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).
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;
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;
Comments
Post a Comment