Comment passer le focus au champ suivant par Entrée ?

Version imprimable

13/12/2007, 15h19
Bruyneel

Comment passer le focus au champ suivant par Entrée ?

Je cherche une manière simple pour intercepter la touche enter dans une form et passer le focus au champ suivant sans devoir parcourir tous les composants et vérifier leur taborder.
Cela reviendrait à simuler l'enfoncement de la touche tab, mais avec la touche enter
13/12/2007, 15h28
ero-sennin

Salut et Bienvenue sur Developpez.com :mrgreen:,

Il faudrait regarder du coté des touches virtuelles VK_RETURN et VK_TAB lors dans l'événement OnKeyPress...

Je n'ai pas Delphi sous la main actuellement... néanmoins, tu peux toujours essayer de faire une recherche sur le forum avec mes mots VK_RETURN, VK_TAB

C'est une petite piste ;)
A+
13/12/2007, 17h12
Bruyneel

Super. :) En cherchant sur les valeur de touches, je suis tombé sur la clé KeyPreview de la form que je n'avais pas placé sur true. Maintenant il ne me reste plus qu'à chercher plus loin les possibilités.

Un grand merci
13/12/2007, 20h23
evarisnea

:salut:
du coté de la JVCL, tu as le composant TjvEnterKeyAsTab (j'espère ne pas me tromper au niveau du nom) qui te permet d'avoir cette fonctionnalité.

Salut,

Comme le suggère ero-sennin, il vaut mieux utiliser le onkeypress, parce-qu'en utilisant le key preview de ta form ton changement de champ se fera quelque soit l'endroit ou se trouve ton curseur.
voici un bout de code que j'utilise filtrer les touches et les tester pour par expl changer de champ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
// check cellule des valeurs
begin
  //filtre les chiffres et la virgule
  if key='.' then Key:=','; { remplace les points par des virgules }
  if (Key in ['0'..'9']) or (Key = Chr(vk_Back)) or (Key = Chr(vk_return))
   or (Key = '+') or (Key = '-') or (Key = '*') or ((Key = ',') 
   then begin
     //verifie si entree est pressée
     if Key=chr(vk_return) then begin
       edit3.setfocus;  { change de champ actif }
       Key := #0; { évite le bip windows }
     end;
   end
   else
     Key := #0;
end;