Seleksi Karakter Pada Input EditBox Di Delphi

Kode singkat berikut merupakan cara agar editbox hanya bisa diisi dengan bilangan dan huruf  ( heksadesimal ) tertentu.

Kode ini dapat diletakkan pada Event “KeyPress” di EditBox, berikut kodenya :

procedure TForm1.Edit1KeyPress(Sender: TObject; var key : char);
begin
if not (((Key >= #48) and         // Kode ASCI untuk ‘0’
(Key <= #57)) or         // Kode ASCI untuk ‘9’
((Key >= #65) and         // Kode ASCI untuk ‘A’
(Key <= #70)) or         // Kode ASCI untuk ‘F’
((Key >= #97) and         // Kode ASCI untuk ‘a’
(Key <= #102)) or        // Kode ASCI untuk ‘f’
(Key = #8))                     // Kode ASCI untuk ‘BackSpace’
then
Key := #0;            // Kode ASCI untuk ‘NULL’
end;

Silakan untuk dicoba.

  1. No trackbacks yet.

Anda harus masuk log untuk mengirim sebuah komentar.
%d blogger menyukai ini: