Γνωρίζουμε ότι, γενικά, το πάτημα του πλήκτρου Tab μετακινεί την εστίαση εισαγωγής στο επόμενο στοιχείο ελέγχου και το Shift-Tab σε προηγούμενο με τη σειρά καρτών της φόρμας. Όταν εργάζεστε με Εφαρμογές Windows, ορισμένοι χρήστες περιμένουν διαισθητικά το κλειδί Enter να συμπεριφέρεται σαν ένα πλήκτρο Tab.
Παραδείγματα παρακάτω γράφονται με την παραδοχή ότι δεν υπάρχει προεπιλεγμένο κουμπί στη φόρμα. Όταν η φόρμα σας περιέχει ένα κουμπί του οποίου η ιδιότητα Προεπιλογή έχει οριστεί σε True, πατώντας Enter στο χρόνου εκτέλεσης εκτελεί οποιονδήποτε κώδικα που περιέχεται στο χειριστή συμβάντος OnClick του κουμπιού.
~~~~~~~~~~~~~~~~~~~~~~~~~
διαδικασία TForm1.Edit1KeyPress (αποστολέας: TObject; var Key: Char).
ξεκινήσει
Αν το κλειδί = # 13 τότε ξεκινήσει
Αν το HiWord (GetKeyState (VK_SHIFT)) <> 0 τότε
ΕπιλέξτεNext (Sender ως TWinControl, False, True)
αλλού
ΕπιλέξτεNext (Sender ως TWinControl, True, True);
Κλειδί: = # 0
τέλος;
τέλος;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
διαδικασία TForm1.DBGrid1KeyPress (αποστολέας: TObject; var Key: Char).
ξεκινήσει
Αν το κλειδί = # 13 τότε ξεκινήσει
Αν αρχίσετε τότε το HiWord (GetKeyState (VK_SHIFT)) <> 0
με (Sender ως TDBGrid)
εάν επιλεγείindex> 0 τότε
selectedindex: = επιλεγμένεςενδείξεις - 1
αλλού αρχίζουν
Πηγή δεδομένων. DataSet. Προηγούμενη;
selectedindex: = αριθμός πεδίου - 1;
τέλος;
τελειώστε αλλιώς
με (Sender ως TDBGrid)
αν επιλέξατε index selectedindex: = επιλεγμένοindex + 1
αλλού αρχίζουν
Πηγή δεδομένων. DataSet. Επόμενο;
selectedindex: = 0;
τέλος;
τέλος;
Κλειδί: = # 0
τέλος;
τέλος;
~~~~~~~~~~~~~~~~~~~~~~~~~