Mēs zinām, ka parasti, nospiežot taustiņu Tab, ievades fokuss tiek pārvietots uz nākamo vadību un taustiņu Shift - uz iepriekšējo formas cilnes secībā. Strādājot ar Windows lietojumprogrammas, daži lietotāji intuitīvi sagaida, ka taustiņš Enter darbosies kā taustiņš Tab.
Zemāk minētie piemēri ir uzrakstīti, pieņemot, ka veidlapā nav noklusējuma pogas. Kad veidlapā ir poga, kuras noklusējuma rekvizīts ir iestatīts uz True, nospiežot Enter plkst izpildlaiks izpilda jebkuru kodu, kas atrodas pogas OnClick notikumu apstrādātājā.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedūra TForm1.Edit1KeyPress (Sūtītājs: TObject; var Taustiņš: Char);
sākt
Ja taustiņš = # 13, tad sāciet
Ja HiWord (GetKeyState (VK_SHIFT)) <> 0, tad
SelectNext (Sūtītājs kā TWinControl, False, True)
cits
SelectNext (Sūtītājs kā TWinControl, True, True);
Taustiņš: = # 0
beigas;
beigas;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procedūra TForm1.DBGrid1KeyPress (Sūtītājs: TObject; var Taustiņš: Char);
sākt
Ja taustiņš = # 13, tad sāciet
Ja HiWord (GetKeyState (VK_SHIFT)) <> 0, tad sāciet
ar (Sūtītājs kā TDBGrid) darīt
ja atlasīts indekss> 0, tad
atlasīts indekss: = atlasīts indekss - 1
cits sākas
Datu avots. DataSet. Iepriekš;
atlasīts indekss: = lauku skaits - 1;
beigas;
beigas vēl sākas
ar (Sūtītājs kā TDBGrid) darīt
ja atlasīts indekss atlasīts indekss: = atlasīts indekss + 1
cits sākas
Datu avots. DataSet. Nākamais;
atlasīts indekss: = 0;
beigas;
beigas;
Taustiņš: = # 0
beigas;
beigas;
~~~~~~~~~~~~~~~~~~~~~~~~~