Bagaimana Filter Karakter di EditBox delphi

EditBox hanya bisa menerima input karakter tertentu. Sebagai contoh, agar EditBox hanya bisa diisi dengan angka, bukan karakter.

Program berikut menunjukkan bagaimana EditBox hanya bisa diisi dengan bilangan heksadesimal, percaya (0 .. 9), (A. F.), Atau (a. F.).

procedure TFPIMUtama.Edit1KeyPress(Sender: TObject; var Key: Char);<br /> begin<br /> if not(key in['A'..'Z','a'..'z',#13,' ','.',#8]) then <br /> begin<br /> Showmessage('only be filled letters');<br /> key:=#0;<br /> end;<br /> end;