Combobox et Scroll de la souris

Version imprimable

13/03/2006, 15h53
Ben_Le_Cool

Combobox et Scroll de la souris

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?

::arf::
13/03/2006, 16h06
MD Software

Il te faut intercepter le WM_MouseWheel

Salut,

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

Code:

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;

13/03/2006, 16h14
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?
13/03/2006, 16h15
MD Software

Mais, tu veux empêcher le scroll ou le déclencher ?
13/03/2006, 16h17
Ben_Le_Cool

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

Citation:
Envoyé par Claudius40
Salut,

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

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.

13/03/2006, 16h20
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 ?

@+
13/03/2006, 16h23
Ben_Le_Cool

Citation:

Envoyé par Claudius40

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.
13/03/2006, 16h26
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 @+