Доброго времени суток всем!

Подскажите, плз., как решить такую задачу:
Имеются два объекта TScrollBox - box1 и box2. Они одинаковые по размерам.
Нужно сделать так, чтобы горизонтальной (вертикальной) прокрутке в box1 соответствующий скроллбар в box2 находился в той же позиции.
То же самое и для box2.

То есть нужно сделать синхронную прокрутку для обоих скроллбоксов.

Я понимаю, что надо отловить сообщение о прокрутке. Но как?...

Если не трудно, поделитесь, плз., примером.

Как-то сталкивался с такой проблемой. Тоже надо было отловить сообщения
о прокрутке. Вобщем наверное это как-то можно сделать. Если пмотреть конструктор TControlScrollBar , то у этого конструктора есть параметр типа TScrollingWinControl, а у этого типа есть обработчики сообщений WMVScroll и WMHScroll, но они записаны в private, наверное надо вынести их published.
Или можно сделать так: у ScrollBox сделать его ScrollBar-ы невидимыми, а вместо них поставить обычные TScrollBar растянуть их вручную по левой и нижней стороне, а у них есть свои обработчик OnScroll; ну а в обработчике перемещать те обекты которые расположены внутри
ScrollBox-a в соответствии со значением position ScrollBar-ов . Кстати я тогда вместо TScrollBox ставил TPanel. Или как я говорил попробовать вынести обработчики из private в published.


P.S.
The Matrix has you ...

Для синхронизации есть простой способ : поставить на форму TApplicationEvents и обрабатывать все сообщения поступающие в окно:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin

Box2.VertScrollBar.Position:=Box1.VertScrollBar.Position;
Box1.VertScrollBar.Position:=Box2.VertScrollBar.Position;
Box2.HorzScrollBar.Position:=Box1.HorzScrollBar.Position;
Box1.HorzScrollBar.Position:=Box2.HorzScrollBar.Position;
end;

hawkins Как-то это накладно получается... По-китайски.

Спасибо всем!
Разобрался на примере синхронизации прокрутки в TListBox. Вот коротенький юнит:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, ExtCtrls; type  TForm1 = class(TForm)    ListBox1: TListBox;    ListBox2: TListBox;    procedure FormCreate(Sender: TObject);    private    { Private declarations }    lbproc1, lbproc2: TWndMethod;    procedure NewProc1(var msg: TMessage);    procedure NewProc2(var msg: TMessage);  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.NewProc1; begin  case msg.Msg of    WM_VSCROLL, LB_SETCURSEL,    WM_KEYFIRST..WM_KEYLAST,    WM_MOUSEFIRST..WM_MOUSELAST:      lbproc2(msg);  end;  lbproc1(msg); end; procedure TForm1.NewProc2; begin  case msg.Msg of    WM_VSCROLL, LB_SETCURSEL,    WM_KEYFIRST..WM_KEYLAST,    WM_MOUSEFIRST..WM_MOUSELAST:      lbproc1(msg);  end;  lbproc2(msg); end; procedure TForm1.FormCreate(Sender: TObject); begin  lbproc1 := ListBox1.WindowProc;  ListBox1.WindowProc := NewProc1;  lbproc2 := ListBox2.WindowProc;  ListBox2.WindowProc := NewProc2; end; end.