Știm că, în general, apăsând tasta Tab mută focalizarea de intrare la următorul control și Shift-Tab la anterior în ordinea file a formularului. Când lucrați cu Aplicații Windows, unii utilizatori se așteaptă intuitiv ca tasta Enter să se comporte ca o cheie Tab.
Exemplele de mai jos sunt scrise cu presupunerea că nu există un buton implicit pe formular. Când formularul dvs. conține un buton a cărui proprietate implicită este setată pe True, apăsând Enter la rulare execută orice cod conținut în instrumentul de gestionare a evenimentelor OnClick.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedura TForm1.Edit1KeyPress (Expeditor: TObject; var Cheie: Char);
începe
Dacă cheia = # 13, apoi începe
Dacă HiWord (GetKeyState (VK_SHIFT)) <> 0 atunci
SelectNext (Expeditor ca TWinControl, False, True)
altfel
SelectNext (Expeditor ca TWinControl, True, True);
Cheie: = # 0
Sfârșit;
Sfârșit;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procedura TForm1.DBGrid1KeyPress (Expeditor: TObject; var Cheie: Char);
începe
Dacă cheia = # 13, apoi începe
Dacă HiWord (GetKeyState (VK_SHIFT)) <> 0 începeți
cu (Expeditor ca TDBGrid)
dacă selectațiindex> 0 atunci
selectatindex: = selectatindex - 1
altceva începe
Sursă de date. DataSet. Înainte;
selectindex: = număr de câmp - 1;
Sfârșit;
sfârșitul începe altceva
cu (Expeditor ca TDBGrid)
dacă selectațiindex selectatindex: = selectatindex + 1
altceva începe
Sursă de date. DataSet. Următor →;
selectat index: = 0;
Sfârșit;
Sfârșit;
Cheie: = # 0
Sfârșit;
Sfârșit;
~~~~~~~~~~~~~~~~~~~~~~~~~