Vieme, že stlačením klávesu Tab sa vo všeobecnosti presunie zameranie vstupu na ďalšiu kontrolu a kláves Shift-Tab na predchádzajúci v poradí tabulátora vo formulári. Pri práci s Windows aplikácie, niektorí používatelia intuitívne očakávajú, že kláves Enter sa bude správať ako kláves Tab.
Príklady uvedené nižšie sú uvedené za predpokladu, že vo formulári nie je predvolené tlačidlo. Ak formulár obsahuje tlačidlo, ktorého predvolená vlastnosť je nastavená na hodnotu TRUE, stlačte kláves Enter beh programu vykoná akýkoľvek kód obsiahnutý v ovládači udalosti OnClick tlačidla.
~~~~~~~~~~~~~~~~~~~~~~~~~
postup TForm1.Edit1KeyPress (odosielateľ: TObject; Var key: Char);
začať
Ak Key = # 13, potom začnite
Ak je HiWord (GetKeyState (VK_SHIFT)) <> 0, potom
VyberteNext (Odosielateľ ako TWinControl, False, True)
inak
VyberteNext (Odosielateľ ako TWinControl, True, True);
Kľúč: = # 0
koniec;
koniec;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
postup TForm1.DBGrid1KeyPress (odosielateľ: TObject; Var key: Char);
začať
Ak Key = # 13, potom začnite
Ak HiWord (GetKeyState (VK_SHIFT)) <> 0, začnite
s (odosielateľ ako TDBGrid)
ak je vybranéindex> 0 potom
selectedindex: = selectedindex - 1
inak začať
Dátový zdroj. Množina údajov. Prior;
selectedindex: = fieldcount - 1;
koniec;
koniec inde začína
s (odosielateľ ako TDBGrid)
ak je vybratáindex selectedindex: = selectedindex + 1
inak začať
Dátový zdroj. Množina údajov. Ďalšie;
vybraný index: = 0;
koniec;
koniec;
Kľúč: = # 0
koniec;
koniec;
~~~~~~~~~~~~~~~~~~~~~~~~~