Probleme de tabulation

Salut
J'aimerais bien faire une tabulation entre les composants d'une fenetre : champs de saisie, ... (c a d passer d'un composant à l'autre par le clic sur la touche tab) , mais en utilisant la touche entrer à la plasse de Tab.
Merci.

Code:

---

1 2 3 4 5

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then perform(WM_NEXTDLGCTL, 0, 0); end;

---

Et dans le même ordre d'idée (perform(WM_NEXTDLGCTL, 0, 0);),
existe t'il une possibilité de naviguer entre des TEdit avec les flèches haut et bas :

flèche bas = edit du dessous
flèche haut = edit du dessus

Citation:

---

Envoyé par ryko

Et dans le même ordre d'idée (perform(WM_NEXTDLGCTL, 0, 0);),
existe t'il une possibilité de naviguer entre des TEdit avec les flèches haut et bas :

flèche bas = edit du dessous
flèche haut = edit du dessus

---

Quelque chose comme ça, je suppose (pas testé) :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_DOWN then perform(WM_NEXTDLGCTL, 0, 0); if Key = VK_UP then perform(WM_NEXTDLGCTL, 1, 0); end;

---

;)

Merci, j'essaye de ce pas:D

[EDIT] Super ! Merci ! Génial !