Discussion :

[Ben_Le_Cool]

Bonjour,

J'ai un combobox avec certaines valeurs dans les items. Mon probleme c'est que quand le combobox a le focus et je tourne la roulette de ma souris ou j'utilise les fleches bas ou haut du clavier, l'item selectionne change (ce qui est normal). Comment empecher ca?

::

[MD Software]

Il te faut intercepter le WM_MouseWheel

[Cl@udius]

Salut,

Au niveau de la form implémente l'évènement OnMouseWheel

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ActiveControl = ComboBox1 then Handled := True;
end;

@+

[Ben_Le_Cool]

combobox n'a pas de OnMouseWheel. Je dois interceopter celui de la forme? Qu'en est-il des fleches bas et haut, je dois intercepter les events aussi?

[MD Software]

Mais, tu veux empêcher le scroll ou le déclencher ?

[Ben_Le_Cool]

Je croyais que c'etait clair dans mon post
Je veux empecher le scroll, car il s'enclenche par defaut.

[Ben_Le_Cool]

Salut,

Au niveau de la form implémente l'évènement OnMouseWheel

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ActiveControl = ComboBox1 then Handled := True;
end;

@+

Merci Claudius, ca marche tres bien.
Il ne me reste qu'a prendre en charge les touches clavier, chose qui est plus facile.

Merci a vous deux.

[Cl@udius]

Ben je t'ai donné la solution. Tout du moins pour la MouseWheel.

Intercepte l'évènement OnMouseWheel au niveau de la form. cf mon code ci-dessus.

Quant aux flèches Haut et Bas: est-ce bien utile. Je comprends que tu veuille intercepter la molette de la souris, et éviter un changement intempestif dans ton combox. Mais les flèches Haut et Bas ?

@+

[Ben_Le_Cool]

Ben je t'ai donné la solution. Tout du moins pour la MouseWheel.

Intercepte l'évènement OnMouseWheel au niveau de la form. cf mon code ci-dessus.

Quant aux flèches Haut et Bas: est-ce bien utile. Je comprends que tu veuille intercepter la molette de la souris, et éviter un changement intempestif dans ton combox. Mais les flèches Haut et Bas ?

@+

Ta solution marche tres bien.
Pour ce qui est des fleches haut et bas, je prefere les inhiber aussi. Mon combobox contient les valeurs d'un zoom, alors je voudrai que l'utilisateur selectionne vraiment la valeur au lieu de scroller.

[Cl@udius]

OK

Dans ce cas c'est effectivement plus simple. Tu peux gérer ça dans OnKeyDown du ComboBox.
Pense également aux flèches Gauche et Droite, si comme je le suppose le Style de ton ComboBox est csDropDownList.

Salut et @+