Discussion :

[dleu]

Bonsoir,

Dans la faq, il est expliqué comment gérer la roulette de la souris dans un dbGrid :

http://delphi.developpez.com/faq/?pa...dbgridroulette

Mais comment faire quand on a deux dbGrid, dbGrid1 et dbGrid2, pour gérer les roulettes sans que le scroll dans une grille ne provoque un scroll dans la deuxième.

Merci de me conseiller.

dleu

[JustMe]

S'il sont liée au même DataSet Tu n'as pas le choix le scroll est automatique

[dleu]

Non, justement. Deux Dataset différents. C'est là l'ennui.

[Nono40]

J'ai pas testé, mas normalement il faudrait tester le Handle :

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
procedure TForm1.DBGridNewWindowProc(var Msg: TMessage);
begin
  //.Interception de l'évènement WM_MOUSEWHEEL.
  if Msg.Msg = WM_MOUSEWHEEL then
  begin
    If Msg.Handle = DBGrid1.Handle Then
    Begin
      if SmallInt(Msg.WParamHi) < 0 then
        DBGrid1.DataSource.DataSet.Next
      else
        DBGrid1.DataSource.DataSet.Prior;
      Exit;
    End;
    If Msg.Handle = DBGrid2.Handle Then
    Begin
      if SmallInt(Msg.WParamHi) < 0 then
        DBGrid2.DataSource.DataSet.Next
      else
        DBGrid2.DataSource.DataSet.Prior;
      Exit;
    End;
  end;
 
  //.Traitement normal des autres message.
  OldWindowProc(Msg);
end;

[dleu]

Merci, l'idée est excellente.

dleu