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

EditBox Hanya diisi angka

Share on :
Disini saya akan sedikit berbagi tentang validasi di EditBox Delphi,yang akan dibahas kali ini adalah validasi editbox dimana editbox tsb hanya bisa di isi dengan huruf,alias ga bisa diisi angka…

Pilih textbox mana yang mau divalidasi, trz pd object inspector pilih event
OnKeyPress, klik 2x masukan listing ini :

  1. if (key in['0','1','2','3','4','5','6','7','8','9'])then key:=#0
  2. atau 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 Hanya diisi angka :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini