Détection scrolling DbGrid

bonsoir,

je voudrais savoir si il y a un moyen de detecter et de declencher un evenement sur un scrolling horizontal d'un dbgrid ?


merci

Salut

Tu peux utiliser les messages pour cela.

définir la procedure

Code:

---

1 2 3 4 5 6

procedure TForm1.GridWindowProc(var Message: TMessage); begin OldGridProc(Message); // appel de l'ancien gestionnaire messages if Message.Msg = WM_HSCROLL then // Ton code quand il y a scrolling end

---

et rediriger les messages vers cette procedure en gardant l'ancien gestionnaire:
(dans le OnCreate de ta form par exemple)

Code:

---

1 2 3 4 5 6

var OldGridProc: TWndMethod; // définie dans ta form ... // et dans le create OldGridProp := DBGrid.WindowProc; DBGrid.WindowProc := GridWindowProc; ...

---