Delphi – Fungsi Enter Pada Edit Box

• 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 2 3 4 5 6 7

procedure TForm1.editnamaKeyPress(Sender: TObject; var Key: Char); begin   if key = chr(13) then     begin       editcitacita.setfocus;     end; end;

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

1 2 3 4 5 6 7

procedure TForm1.editcitacitaKeyPress(Sender: TObject; var Key: Char); begin   if key = chr(13) then     begin       btnkeluar.SetFocus;     end; end;

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

1 2 3 4

procedure TForm1.btnkeluarClick(Sender: TObject); begin   close; 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(^.^”).

klik disini