Discussion :

[lagunss]

Bonjour
J'ai un petit problème
Dans une DBLookupComboBox la roulette de la souris ne fonctionne pas alors que dans un ComboBox normal je n'ai pas de problème
Est ce que quelqu'un pourrait m'aider ?
Merci

[Archimède]

je ne connais pas ton composant... mais voici un exemple que tu peux adapter à ta situation.
ici j'utilise un combobox qui ne réagit pas aux click de souris --->

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.FormCreate(Sender: TObject);
begin
with combobox1 do begin
items.add('premier');
items.add('second');
items.add('troisième');
items.add('quatrième');
itemindex:=0;
end;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i:integer;
 
begin
i:=Combobox1.itemindex;
if ssLeft in Shift then 
begin
inc(i);
Combobox1.itemindex:=i; 
end;
 
if ssright in Shift then 
begin
dec(i);
Combobox1.itemindex:=i;
end;
 
end;

pour ton cas ,prends les événements:
onMouseWheelDown et onMouseWheelUp pour contrôler ta mollette et puis adopte une méthode similaire....