אנו יודעים שבאופן כללי לחיצה על מקש Tab מעביר את מיקוד הקלט לשליטה הבאה ו- Shift-Tab לקודמת בסדר הטאב של הטופס. כאשר עובדים עם יישומי חלונות, משתמשים מסוימים מצפים באופן אינטואיטיבי שמקש Enter יתנהג כמו מקש Tab.
הדוגמאות להלן נכתבות בהנחה שאין כפתור ברירת מחדל בטופס. כאשר הטופס שלך מכיל כפתור שמאפיין ברירת המחדל מוגדר כ- True, לחץ על Enter ב זמן ריצה מבצעת כל קוד המופיע במטפל האירועים OnClick של הכפתור.
~~~~~~~~~~~~~~~~~~~~~~~~~
נוהל TForm1.Edit1KeyPress (שולח: TObject; var מפתח: char);
התחל
אם מפתח = # 13 אז התחל
אם HiWord (GetKeyState (VK_SHIFT)) <> 0 אז
SelectNext (שולח כ- TWinControl, False, True)
אחר
SelectNext (שולח כ- TWinControl, נכון, נכון);
מפתח: = # 0
סוף;
סוף;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
נוהל TForm1.DBGrid1KeyPress (שולח: TObject; var מפתח: char);
התחל
אם מפתח = # 13 אז התחל
אם HiWord (GetKeyState (VK_SHIFT)) <> 0, התחל
עם (שולח כמו TDBGrid) לעשות
אם בחרו באינדקס> 0 אז
selectindex: = selectindex - 1
אחרת מתחילים
מקור מידע. DataSet. קודמת;
selectindex: = מספר שדה - 1;
סוף;
סוף אחר מתחיל
עם (שולח כמו TDBGrid) לעשות
אם נבחרה אינדקס valgtindex: = נבחרה אינדקס + 1
אחרת מתחילים
מקור מידע. DataSet. הבא;
selectindex: = 0;
סוף;
סוף;
מפתח: = # 0
סוף;
סוף;
~~~~~~~~~~~~~~~~~~~~~~~~~