Znamo da, pritiskom na tipku Tab, fokus ulaza prelazi na sljedeću kontrolu, a Shift-Tab na prethodni u redoslijedu tablica obrasca. Pri radu sa Windows aplikacije, neki korisnici intuitivno očekuju da se tipka Enter ponaša poput tipke Tab.
Primjeri u nastavku napisani su s pretpostavkom da na obrascu nema zadanog gumba. Kada vaš obrazac sadrži gumb za koje je zadano svojstvo postavljeno na True, pritisnite Enter at dužina trajanja izvršava bilo koji kôd koji se nalazi u alatu za obradu događaja OnClick gumba.
~~~~~~~~~~~~~~~~~~~~~~~~~
postupak TForm1.Edit1KeyPress (pošiljalac: TObject; var Ključ: Char);
početi
Ako je tipka = # 13, tada započnite
Ako je HiWord (GetKeyState (VK_SHIFT)) <> 0 tada
SelectNext (pošiljalac kao TWinControl, False, True)
drugo
SelectNext (Pošiljalac kao TWinControl, True, True);
Ključ: = # 0
kraj;
kraj;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
postupak TForm1.DBGrid1KeyPress (pošiljatelj: TObject; var Ključ: Char);
početi
Ako je tipka = # 13, tada započnite
Ako HiWord (GetKeyState (VK_SHIFT)) <> 0 tada započnite
sa (Pošiljatelj kao TDBGrid)
ako je odabranindex> 0, tada
selectedindex: = odabraniindex - 1
drugo započeti
Izvor podataka. Podataka. prije;
selectedindex: = broj polja - 1;
kraj;
kraj drugog početi
sa (Pošiljatelj kao TDBGrid)
ako je odabranindex selectedindex: = odabraniindex + 1
drugo započeti
Izvor podataka. Podataka. Sljedeći;
odabrani indeks: = 0;
kraj;
kraj;
Ključ: = # 0
kraj;
kraj;
~~~~~~~~~~~~~~~~~~~~~~~~~