Vemo, da na splošno s pritiskom na tipko Tab premaknete vhodni fokus na naslednji nadzor in Shift-Tab na prejšnji v vrstnem redu zavihka obrazca. Pri delu s Aplikacije za Windows, nekateri uporabniki intuitivno pričakujejo, da se bo tipka Enter obnašala kot tipka Tab.
Spodnji primeri so napisani s predpostavko, da na obrazcu ni privzetega gumba. Ko obrazec vsebuje gumb, katerega privzeta lastnost je nastavljena na True, pritisnite Enter at čas izvajanja izvede katero koli kodo, ki jo vsebuje gumb za obdelavo dogodkov OnClick.
~~~~~~~~~~~~~~~~~~~~~~~~~
postopek TForm1.Edit1KeyPress (Pošiljatelj: TObject; var tipka: Char);
začeti
Če je tipka = # 13, potem začnite
Če je HiWord (GetKeyState (VK_SHIFT)) <> 0, potem
SelectNext (Pošiljatelj kot TWinControl, False, True)
drugače
SelectNext (Pošiljatelj kot TWinControl, True, True);
Ključ: = # 0
konec;
konec;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
postopek TForm1.DBGrid1KeyPress (Pošiljatelj: TObject; var tipka: Char);
začeti
Če je tipka = # 13, potem začnite
Če HiWord (GetKeyState (VK_SHIFT)) <> 0, potem začnite
z (Pošiljatelj kot TDBGrid)
če je izbranindex> 0, potem
izbranindex: = izbranindex - 1
drugače se začne
Vir podatkov. DataSet. Prej;
selectedindex: = števec polja - 1;
konec;
konec drugega se začne
z (Pošiljatelj kot TDBGrid)
če je izbranindex izbranindex: = izbranindex + 1
drugače se začne
Vir podatkov. DataSet. Naslednji;
izbrani indeks: = 0;
konec;
konec;
Ključ: = # 0
konec;
konec;
~~~~~~~~~~~~~~~~~~~~~~~~~