Masukkan Pada TextBox Harus Berupa Angka atau Huruf

26 04 2010

Pada Delphi, untuk membuat masukkan pada TextBox harus berupa angka, ketikkan listing program dibawah ini pada event OnKeyPress milik TextBox.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['a'..'z'])then
  key:=#0;
end;

Kalau Anda ingin masukkan pada TextBox harus berupa huruf, ketikkan listing program dibawah ini pada event OnKeyPress milik TextBox.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if(key in['0'..'9'])then
  key:=#0; end; 

Selamat Mencoba..


Aksi

Information

2 responses

11 11 2010
Rizki

Koq saya coba ga bisa ya?
Karakternya masih bisa di masukan huruf.

Mohon penjelasannya lewat email ya?!
Please.

17 11 2010
Alit Widana

Dear Rizki

Terima kasih atas komentarnya.
Pada listing code tersebut, huruf yang tidak bisa dimasukkan hanya huruf kecil.
Agar huruf kapital tidak bisa dimasukkan juga, Anda harus sedikit memodifikasi listing program tersebut seperti dibawah ini :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if((key in[‘a’..’z’])or (key in[‘A’..’Z’]))then
key:=#0;
end;

Semoga membantu..

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: