Form yang tidak Bisa Diinput pada Delphi #136

andrypein.net : Hah apa maksudnya ya ada form yang tidak bisa diinput ini?

Ini semacam limitasi saja ko kata aing mah, karena pasti ada aplikasi yang hanya mengijinkan kita input text saja atau huruf saja.

Melalui artikel ini aing akan mencontohkan kode aplikasi untuk delphi tentang bagaimana agar si form hanya bisa diinput text saja atau angka saja.

Cukup dengan sample 2 edit text saja bentuk formnya sederhana saja seperti gambar dibawah ini :

Next langsung saja pada kodingnya, pada masing2 edittext kita beri event OnKeyPress.

Berikut kode untuk edittext agar tidak bisa diinputkan nomer angka :

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

EZ kan?

Begitu pula untuk edittext yang tidak bisa diinputkan huruf :

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key in ['a'..'z','A'..'Z'] then
  key:=#13;
end;

Untuk koleksi bisa ko didonlod disini apps form yang tidak bisa diinput di delphi nya.

Download

*AFK