Membatasi Jenis Inputan dari OnKeyPress di Edit Text

Salam,

Kali ini saya akan membahas mengani OnKeyPress pada Edit text di pemrograman Delphi7.

Simplenya adalah pada saat kursor diletakkan pada Edit text, maka program akan memunculkan tindakan, entah pesan, ataupun action sesuai programmer.

Semoga contoh berikut membantu.

1. Saya telah mendesain form seperti berikut :

Untitled-11 copy

2. Klik Edit text, lalu arahkan pointer ke Object Inspector, klik Event yang berada di sebelah Properties, cari OnKeyPress, double klik dan akan tampil halaman unit untuk memulai pengkodean [read : coding]. Letakkan kursor di antara ‘begin‘ dan ‘end’ untuk memulai.

Untitled-10 copy

3. Ketikkan kode berikut,

Contohnya adalah,

Apabila Edit text diisi SELAIN ANGKA, maka AKAN MUNCUL PESAN.

Untitled-12 copy

4. Running Program, dan kali ini saya menekan huruf ‘m’ di keyboard, maka akan muncul :

Untitled-13 copy

Namun, apabila saya menekan angka ‘0899976543’ maka akan muncul :

Untitled-15 copy

Tetapi, ketika saya  menekan ENTER setelah pengisian, akan tetap terjadi ERROR,

Untuk mengatasinya, tambahkan kode ‘#13‘ setelah ‘#8’, untuk memerbolehkan kode Enter saat pengisian.

Baik, sampai disini pembahasan saya mengenai membatasi jenis inputan pada OnKeyPress Edit text di Delphi7, kurang lebihnya, silahkan berkreatifitas sendiri 🙂

Semangat Belajar 🙂

Terimakasih Sudah Bertamu 🙂

 

 

Advertisements

One Comment Add yours

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s