Mengganti Fungsi "Tab" Menjadi "Enter"

Dalam pembuatan suatu aplkasi tentunya sebagai programmer akan membuat aplikasi yang mudah digunakan oleh user/pengguna. Salah satu hal yang kadang lupa diperhatikan adalah fungsi "Enter" dalam penggunaaan aplikasi untuk pindah ke tombol atau untuk pindah ke input data dibawahnya, sebenarnya untuk pindah dari 1 inputan ke inputan selanjutnya bisa saja menggunakan tombol "Tab" di keyboard tapi orang awam belum tentu mengetahui fungsi tersebut jadi alangkah baiknya jika fungsi tombol "Tab" bisa juga jika menggunakan fungsi tombol "Enter". Didalam pembuatan program cara untuk mengguankan tombol "Enter" bisa seperti berikut :



1. Buat form seperti berikut :

Dalam pemasangan komponen urutkan dari atas ke bawah,misal Edit1 lalu Edit 2 karena fungsi tombol    "Tab" akan menyesuaikan manakah komponen yang dipasang terlebih dahulu.

2. Pilih properties Oncreate pada Event Form

 Klik 2x pada kotak putih sebelah OnCreate dan masukkan perintah :

KeyPreview:=true;

Lengkapnya seperti berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
end;

3.  Pilih Event OnKeyPress pada Event Form dan masukkan perintah seperti berikut

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then //sini
     begin
           Key := #0;    PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
     end; //sampai sini
end;

4. Agar saat program dijalankan bisa mengarah ke Edit 1 pada Event OnShow bisa ditambahkan perintah

Edit1.Setfocus.

Jalankan program/aplikasi,dan sekarang fungsi tombol "Enter" pada keyboard bisa digunakan di aplikasi yang kita buat.

Semoga bermanfaat.