Tips Delphi:"Memindah kursor dengan tombol enter"

Pada kesempatan hari ini saya mau berbagi tips materi Delphi tentang Fungsi Enter Pada Edit Box. Dimana pada saat kita menekan tombol enter keyboard maka maka kursor akan berpindah ke kolom edit berikutnya. Selamat menyimak.
1. Buatlah form seperti gambar berikut

2. Atur properti name nya seperti gambar beriku

3. Pilih edit nama kemudian pada objeck inspectornya pilih tab event, selanjutnya cari event key press klik dua kali, selanjutnya masukan kode seperti berikut:

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

4. Ulangi langkah pertama pada edit box alamat kemudian masukan codenya

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

5. Langkah terakhir klik tombol simpan, kemudian masukan code berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
    CLOSE;
end;

6. Tekan tombol F9 untuk menjalan program, apabila tidak ada kesalahan coding maka akan muncul tampilan seprti gambar berikut:

Fungsi dari aplikasi tersebut adalah memudahkan kita dalam berpindah kursor dengan kata lain memindahkan kursor TANPA bantuan Mouse dan Tombol TAB pada Keyboard.

Catatan: aplikasi ini dikhususkan bagi pemula seperti saya sebagai bahan studi programin