Composant : Détecter un scroll du parent

Salut à tous

Je souhaite créer un composant capable d'intercepter le scrolling de son parent (sous forme d'évenement ou de message, peu importe), et ce quel que soit le type du composant parent.

J'aimerais éviter d'écrire une méthode pour chaque type, du style :

Code:

---

1 2 3 4

If MonCtrl is TListView then (MonCtrl as TListView).OnChange := ListView_change(...);   If MonCtrl is TListBox then (MonCtrl as TListBox).OnChange := ListBox_Change(...);

---

(ListBox.OnChange qui, cela dit en passant, n'existe pas, mais c'est un autre probleme ...)


Voila, si quelqu'un a une idée ...

salut


en redefinissant wndproc et en testant le message
wm_scroll

@+ Phil