גרום למפתח Enter לעבוד כמו לשונית ביישומי דלפי

אנו יודעים שבאופן כללי לחיצה על מקש 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;
סוף;
סוף אחר מתחיל

instagram viewer

עם (שולח כמו TDBGrid) לעשות
אם נבחרה אינדקס valgtindex: = נבחרה אינדקס + 1
אחרת מתחילים
מקור מידע. DataSet. הבא;
selectindex: = 0;
סוף;
סוף;
מפתח: = # 0
סוף;
סוף;
~~~~~~~~~~~~~~~~~~~~~~~~~

instagram story viewer