Loading halaman Tutorial Visual Basic, Delphi, PHP - Calon Programer : EditBox tidak bisa diisi angka ...

Agar EditBox tidak dapat diisi angka menurut saya begini sintaknya:
pilih EditBox mana yang mo divalidasi, trz pd object inspector pilih event OnKeyPress, klik 2x masukan code ini :
  1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0;  
  2. klo hanya diisi angka saja  
  3. if not(key in['0','1','2','3','4','5','6','7','8','9',#8])then key:=#0;  
  4.  Selamat mencoba !!!  
  5. di isi khusus aphabet  
  6. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  
  7. begin  
  8. if not (key in ['A'..'z',#8]) then key := #0;  
  9. end;  

Tagg :

0 Reply :

Posting Komentar

Jika ada pertanyaan atau request,Komentar pada tab blogger akan lebih memudahkan saya untuk membalasnya karena lebih mudah melakukan pengecekan komentar.