Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

EditBox tidak bisa diisi angka

Share on :
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;  

0 komentar on EditBox tidak bisa diisi angka :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini