Discussion :

[f6dqm1]

Bonjour. Je bute depuis ce matin sur un truc bizarre avec un TComboBox contenant N items.
Je cherche à faire en sorte que l'on fait défiler la sélection dans la ComboBox avec la flèche verticale du clavier, on se repositionne automatiquement sur le premier item lorsqu'on a atteint le dernier.
J'utilise OnKeyDown avec la ligne suivante :
If (key=VK_DOWN) and (ComboBox.itemindex=N-1) then comboBox.itemindex:=0.
Bizarrement, la combobox ne remet pas sur le 1er item mais sur le deuxième.
Quelqu'un peut-il me donner la solution ?
Gab

[SergioMaster]

Bonjour,

il doit manquer un key:=0 permettant d'annuler l'utilisation de la touche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 If (key=VK_DOWN) and (ComboBox.itemindex=N-1) then 
    begin
      comboBox.itemindex:=0;
      Key:=0;
   end;

[retwas]

Comme le dit Sergio il manque le 0.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (Key = VK_DOWN) and (ComboBox1.itemindex = ComboBox1.items.Count - 1) then
   begin
      ComboBox1.itemindex := 0;
      Key := 0;
   end
   else if (Key = VK_UP) and (ComboBox1.itemindex = 0) then
   begin
      ComboBox1.itemindex := ComboBox1.items.Count - 1;
      Key := 0;
   end;
end;

[f6dqm1]

Merci beaucoup.
C'était trop simple ! Surtout que j'avais déjà rencontré ce genre de remise à zéro de key et je ne m'en suis pas souvenu.
Bonne soirée
Gab