Delphi – Fungsi Enter Pada Edit Box

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.

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.

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.

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(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini .

Unduh – Materi 32 Fungsi Enter Pada Edit Box

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 _______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Simulasi Lampu Lalu Lintas

–          Delphi – Animasi Teks Zoom

–          Delphi – Animasi Tampilan Teks

_______________________________________________________________________________

5 thoughts on “Delphi – Fungsi Enter Pada Edit Box

  1. Ping-balik: Delphi – Karakter Angka Saja Pada Edit Box | Catatan Eko

  2. Ping-balik: Delphi Request – Timer Hitung Mundur Games | Catatan Eko

  3. Ping-balik: Delphi Request – Play Sound Wave | Catatan Eko

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s