Jumat, 08 April 2011

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;
Anda juga dapat menerapkan trik tersebut pada komponen TMemo.
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.
Source Code Delphi -Input Angka Pada TEditDownload
Source Code Delphi -Input Angka Pada TEdit
File: input_angka_tedit.zip
Hits: 70

Tidak ada komentar:

Posting Komentar