synchroniser deux scrollbox

Comment faire pour synchroniser le défilement de deux scrollbox contenant des Timage. Je voudrais qu'en jouant sur l'ascenseur d'un des scrollbox, les deux Timage dans les deux scrollbox se positionnent.
Si vous avez des idées
Mic

Ce n'est peut être pas la meilleure solution mais elle marche. Je l'ai programmée pour l'affichage d'un planning avec un timer. J' affiche la liste des postes dans la scrollbox de gauche (scroll vertical) et le planning dans celle de droite (scroll vertical +scroll horizontal pour les dates)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tfcalcul_chrono.Timer1Timer(Sender: TObject); begin if imageposte.top<>ImagePlanning.top then begin if imageposte.top<>synchroV then   scrollboxplanning.vertscrollBar.position:=scrollboxposte.VertScrollBar.position else scrollboxposte.VertScrollBar.position:=scrollboxplanning.vertscrollBar.position; synchroV:=imageposte.top; end; end;

---

SAlut
Moi je ferais comme ca plutot, c'est peut etre pas la meilleur solution mais l'utilisation d'un timer non plus :P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.ScrollBox1ConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); begin If image2.Top <> image1.Top Then ScrollBox2.VertScrollBar := ScrollBox1.VertScrollBar; end;   procedure TForm1.ScrollBox2ConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); begin If image2.Top <> image1.Top Then ScrollBox1.VertScrollBar := ScrollBox2.VertScrollBar;   end;

---

Bon ok j'ai pas renomé mes composants mais comme ca on voit de suite qu'il faut un scrollbox1 avec une image Image1dedans et pareil avec ScrollBox2 et Image2 a l'interieur :)

A++
Qwaz