[DBGrid]scroll dans deux grilles

Version imprimable

12/09/2004, 19h01
dleu

[DBGrid]scroll dans deux grilles

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
12/09/2004, 20h55
JustMe

S'il sont liée au même DataSet Tu n'as pas le choix le scroll est automatique
12/09/2004, 21h51
dleu

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

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

Code:

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;

13/09/2004, 10h51
dleu

Merci, l'idée est excellente.
:)
dleu