Discussion :

[pamplemousse]

bonjour chers collegues,

Sur ma dbgrid lorsque je fait tourner ma molette souris la selection se deplace mais pas l'actualisation des données relative a la nouvelle selection.... pk??
Si vous avez une solution je vous envoie des figues et du raisin...

merci pour tout ou pour rien cela depend de la reponse lol

[JustMe]

que voulez vous dire par actualisation des données?

[evarisnea]

au cas où tu ne le saurais pas, l'usage de la molette de la souris dans un DBGrid déplace le focus sur les cellules, mais pas la position de l'enregistrement courant. ainsi, si tu es en mode édition/insertion d'un enregistrement, l'usage de la molette de ta souris ne postera pas les modification de l'enregistrement.
si tu veux modifier l'enregistrement courant avec la molette de la souris, voir la solution du coté de la

[pamplemousse]

Merci deja pour l'interet et pour la reponse...

En fait mon dbgrid n'est visible que lorsque ma table n'est pas en edition donc je voudrais voir apparaitre sur mes dbtext les données relatives a la navigation de la molette sur la dbgrid... On m'avait donné une solution avec une applicationevents qui marchait car la molette deplacer l'enregistrement en cours mais comme c'etait une boucle (test des msg constante) interminable qui se repeter constamment et c pas top comme solution vis a vis du reste du programme... je vais voir comme le dis evarisnea du coté de la Faq mais si vous avez une solution thanks beaucoup

[anapurna]

salut

essai ce 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
43
44
45
procedure TMafrm.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 TMafrm.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 TMafrm.GereMolettedansDBgrid(Sender: TWinControl);
//procedure récursive qui cherche les DBGrid dans tous les controles
var
  i: integer;
begin
  With Sender do
  begin
    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;
 
procedure TMafrm.FormCreate(Sender: TObject);
begin
  inherited;
  GereMolettedansDBgrid(self);
end;

@+ Phil

[pamplemousse]

C'est tres cool pour la reponse et ca marche bien... je te remercie anapurna... Sur ce bonne continuation et a bientot

Respect et honneur !