Nous savons que, généralement, appuyer sur la touche Tab déplace le focus d'entrée vers le contrôle suivant et Shift-Tab vers le précédent dans l'ordre de tabulation du formulaire. Lorsque vous travaillez avec Applications Windows, certains utilisateurs s'attendent intuitivement à ce que la touche Entrée se comporte comme une touche Tab.
Les exemples ci-dessous sont écrits en supposant qu'il n'y a pas de bouton par défaut sur le formulaire. Lorsque votre formulaire contient un bouton dont la propriété par défaut est définie sur True, appuyez sur Entrée à Durée exécute tout code contenu dans le gestionnaire d'événements OnClick du bouton.
~~~~~~~~~~~~~~~~~~~~~~~~~
procédure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char);
commencer
Si la clé = # 13 alors commencez
Si HiWord (GetKeyState (VK_SHIFT)) <> 0 alors
SelectNext (Expéditeur en tant que TWinControl, False, True)
autre
SelectNext (Expéditeur en tant que TWinControl, True, True);
Clé: = # 0
fin;
fin;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procédure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char);
commencer
Si la clé = # 13 alors commencez
Si HiWord (GetKeyState (VK_SHIFT)) <> 0, commencez
avec (Sender as TDBGrid) do
si index sélectionné> 0 alors
selectedindex: = selectedindex - 1
sinon commencer
La source de données. Base de données. Avant;
selectedindex: = fieldcount - 1;
fin;
fin sinon commencer
avec (Sender as TDBGrid) do
si selectedindex selectedindex: = selectedindex + 1
sinon commencer
La source de données. Base de données. Prochain;
indice sélectionné: = 0;
fin;
fin;
Clé: = # 0
fin;
fin;
~~~~~~~~~~~~~~~~~~~~~~~~~