Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Form yang tidak Bisa Diinput pada Delphi #136

Kambing salto adalah kambing yang melakukan salto

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 :

Form yang tidak Bisa Diinput
laikdis

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

 

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button