Input Angka Pada TEdit
Mencegah input dari user pada TEdit selain angka. Berguna untuk peng-inputan bilangan (umur, harga.. dkk)
Saat user menginputkan data pada TEdit, maka event yang bekerja adalah onKeyPress. Misalkan control input adalah Edit1, edit event onKeyPress
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
{Angka dimulai dari 0 - 9, sedangkan ASCII Key code untuk 0 - 9
adalah 48 s/d 57... Jika KeyCode > 47 'dan' < 58 maka
input diperbolehkan. Karena backspace masih dibutuhkan untuk
menghapus, maka KeyCode untuk Backspace (8) diperbolehkan, jadi
ditambah 'atau' = 8}
if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(8)) then {No Action...}
else
//Meng-anti-si sapi input selain angka...
Key := Chr(0);
end;
begin
{Angka dimulai dari 0 - 9, sedangkan ASCII Key code untuk 0 - 9
adalah 48 s/d 57... Jika KeyCode > 47 'dan' < 58 maka
input diperbolehkan. Karena backspace masih dibutuhkan untuk
menghapus, maka KeyCode untuk Backspace (8) diperbolehkan, jadi
ditambah 'atau' = 8}
if (Key > Chr(47)) and (Key < Chr(58)) or (Key = Chr(8)) then {No Action...}
else
//Meng-anti-si sapi input selain angka...
Key := Chr(0);
end;
Yang perlu anda ketahui…
User masih dapat menginputkan data selain angka melalui clipboard alias di paste (CTRL + V). Tapi jangan putus asa, masih ada cara untuk mengakali agar input yang diberikan masih berupa angka. Caranya bisa dilihat pada page: Cegah Paste Dari Clipboard pada Komponen Editor. Dengan cara tersebut, usaha anda tidak akan sia-sia. Namun kelemahannya adalah user tidak dapat mem-paste dari clipboard.
 | Download Source Code Delphi -Input Angka Pada TEdit File: input_angka_tedit.zip Hits: 70 |
Tidak ada komentar:
Posting Komentar