Discussion :

[portu]

Bonjour, J'ai récupéré il y a quelque temps le code permettant de prendre en charge le message WM_MouseWheel par un TDBGrid.

Mais quand on en a plusieurs sur une fiche , comment faire ?
Page du code

Je pense qu'il faire a chaque changement de (focus) DBGrid, initialiser OldWindowProc. Mais je ne sais pas comment faire.

Merci d'avance

[anapurna]

salut

si tu as recuperer ce genre de code

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
31
32
33
34
35
36
37
38
39
40
41
42
procedure Tform1.DBGridMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
{ROULETTE Down}
begin
    Handled := True;
    if sender is TDBGrid then
    TDBGrid(Sender).Datasource.DataSet.Next;
end;
 
procedure Tform1.DBGridMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
{ROULETTE Up}
begin
    Handled := True;
    if sender is TDBGrid then
    TDBGrid(Sender).Datasource.DataSet.Prior;
end;
 
procedure Tform1.GereMolettedansDBgrid(Sender: TWinControl);
//procedure récursive qui cherche les DBGrid dans tous les controles
var
    i: integer;
begin
  // cette methode parcourt tous les controle afin de resencer et
 //d'affecter les deux methode de facon totalement transparente 
    With Sender do
    begin
        //ShowMessage(Sender.Name);
        for i := 0 to ControlCount - 1 do
        begin
            if Controls[i] is TDBGrid then
            With TDrawGrid(Controls[i]) do
                begin
                //modifie les procédure de la roulette
                OnMouseWheelDown := DBGridMouseWheelDown;
                OnMouseWheelUp := DBGridMouseWheelUp;
                end
            else if Controls[i] is TWinControl then
            if TWinControl(Controls[i]).ControlCount > 0 then
                GereMolettedansDBgrid(TWinControl(Controls[i]));
        end;
    end;
end;
{------------------------------------------------------------------------------}

celui-ci gere tous seul les multiple dbgrid de ta form du momment que le
porietaire du dbgrid est connue de la form

@+ Phil

[portu]

Merci mais
j'ai une violation d'accès !
J'ai mis dans le OnActivate de ma fiche

Code :

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

1
2
 
GereMolettedansDBgrid(NOM_DE_LA_FICHE);

C'est bien ca non ?

[anapurna]

salut

c'est pas la qu'il fallait le placer

essai dans le create de la form

Code :

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

GereMolettedansDBgrid(self);

avec cette affectation


@+ Phil

[portu]

Nickel merci man
a+