Genel olarak Sekme tuşuna basmanın, giriş odağını formun sekme sırasında bir sonraki kontrole ve Shift-Tab tuşunu bir öncekine taşıdığını biliyoruz. İle çalışırken Windows uygulamalarıbazı kullanıcılar sezgisel olarak Enter tuşunun bir Sekme tuşu gibi davranmasını bekler.
Aşağıdaki örnekler, formda varsayılan bir düğme olmadığı varsayılarak yazılmıştır. Formunuzda Varsayılan özelliği True olarak ayarlanmış bir düğme bulunduğunda, Çalışma süresi düğmenin OnClick olay işleyicisinde bulunan herhangi bir kodu yürütür.
~~~~~~~~~~~~~~~~~~~~~~~~~
prosedür TForm1.Edit1KeyPress (Gönderen: TObject; var Key: Char);
başla
Anahtar = # 13 ise Başlayın
HiWord (GetKeyState (VK_SHIFT)) <> 0 ise
SelectNext (TWinControl olarak Gönderen, Yanlış, Doğru)
Başka
SelectNext (TWinControl olarak Gönderen, Doğru, Doğru);
Anahtar: = # 0
son;
son;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
prosedür TForm1.DBGrid1KeyPress (Gönderen: TObject; var Key: Char);
başla
Anahtar = # 13 ise Başlayın
HiWord (GetKeyState (VK_SHIFT)) <> 0 ise başlayın
ile (TDBGrid olarak gönderen)
dizin> 0 ise
Seçilmiş dizin: = Seçilmiş dizin - 1
başka başlıyor
Veri kaynağı. DataSet. Önceki;
seçilen dizin: = alan sayısı - 1;
son;
başka son başlar
ile (TDBGrid olarak gönderen)
dizin seçilen dizin: = seçilen dizin + 1
başka başlıyor
Veri kaynağı. DataSet. Sonraki;
seçilen dizin: = 0;
son;
son;
Anahtar: = # 0
son;
son;
~~~~~~~~~~~~~~~~~~~~~~~~~