Kita tahu bahwa, secara umum, menekan tombol Tab menggerakkan fokus input ke kontrol berikutnya dan Shift-Tab ke sebelumnya dalam urutan tab formulir. Saat bekerja dengan Aplikasi Windows, beberapa pengguna secara intuitif mengharapkan tombol Enter untuk berperilaku seperti tombol Tab.
Contoh di bawah ini ditulis dengan asumsi bahwa tidak ada tombol default pada formulir. Saat formulir Anda berisi tombol yang properti Default-nya disetel ke True, menekan Enter at runtime mengeksekusi kode apa pun yang terkandung dalam event handler OnClick tombol.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Edit1KeyPress (Pengirim: TObject; var Key: Char);
mulai
Jika Kunci = # 13 Kemudian Mulai
Jika HiWord (GetKeyState (VK_SHIFT)) <> 0 lalu
SelectNext (Pengirim sebagai TWinControl, False, True)
lain
SelectNext (Pengirim sebagai TWinControl, True, True);
Kunci: = # 0
akhir;
akhir;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
prosedur TForm1.DBGrid1KeyPress (Pengirim: TObject; var Key: Char);
mulai
Jika Kunci = # 13 Kemudian Mulai
Jika HiWord (GetKeyState (VK_SHIFT)) <> 0 maka mulailah
dengan (Pengirim sebagai TDBGrid) lakukan
jika dipilihindeks> 0 lalu
selectedindex: = selectedindex - 1
lain mulai
Sumber data. Himpunan data. Sebelumnya;
selectedindex: = fieldcount - 1;
akhir;
akhir pun dimulai
dengan (Pengirim sebagai TDBGrid) lakukan
jika dipilihindeks selectedindex: = selectedindex + 1
lain mulai
Sumber data. Himpunan data. Lanjut;
selectedindex: = 0;
akhir;
akhir;
Kunci: = # 0
akhir;
akhir;
~~~~~~~~~~~~~~~~~~~~~~~~~