Fungsi Enter Pada Edit Box Di Delphi

Assalamualaikum Temen Temen semua, Salam Semangat Kembali Di Minggu Pagi ini tetap di Catatan Eko Personal Blog. Wah masih setia dengan Tips Tips Materi Pembelajaran Delphi nich.

Nah ada Pagi hari ini saya mau berbagi tips materi Delphi dengan Tema Fungsi Enter Pada Edit Box. Dimana saat kita melakukan enter maka kode scrip akan berjalan, untuk saat ini saya hanya menggunakan fungsi setfocus saja. Dimana saat edit box di enter akan cursor akan pindah di edit box lainnya, monggo disimak ya.

Untuk Mempersingkat waktu, Langsung aja kita praktekkan ya.

• Pertama-tama temen temen bisa buat design form sebagai berikut :

• Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

• Saat program Set Focus Kurso Pada Edit Box Nama, Saat Edit Box Nama Di isi Dan Di Enter maka Kursos akan pindah ke Edit Cita Cita.
• Saat Edit Cita Cita Di isi dan di Enter maka akan pindah Set Fokus Ke Button Keluar.
• jika button keluar diklik makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.

1	procedure TForm1.editnamaKeyPress(Sender: TObject; var Key: Char);

2

begin

3	if key = chr(13) then

4

begin

5	editcitacita.setfocus;

6

end;

7

end;

Jika Edit Box Nama Di Enter maka akan pindah ke Edit Box Cita Cita.

1	procedure TForm1.editcitacitaKeyPress(Sender: TObject; var Key: Char);

2

begin

3	if key = chr(13) then

4

begin

5	btnkeluar.SetFocus;

6

end;

7

end;

Jika Edit Box Cita Cita Di Enter maka akan pindah ke Button Keluar.

1	procedure TForm1.btnkeluarClick(Sender: TObject);

2

begin

3

close;

4

end;

Jika Button Keluar Di Klik maka akan keluar dari program

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

Saat Edit Nama di isi dan di enter maka set focus akan pindah ke Edit box Cita Cita.

Button Keluar di Klik makan akan keluar dari program

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Fungsi Enter pada Edit Box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini .

Unduh – Materi 32 Fungsi Enter Pada Edit Box