Изменяешь положение бегунка у одного- аналогично изменяется у другого. Проблема в том, что у него нет события onScroll :(

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids;

type
{$IFDEF WIN32}
WParameter = LongInt;
{$ELSE}
WParameter = Word;
{$ENDIF}
LParameter = LongInt;
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
StringGrid1: TStringGrid;
ScrollBox2: TScrollBox;
StringGrid2: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
OldWindowProc : Pointer;


implementation

{$R *.DFM}

function NewWindowProc(WindowHandle : hWnd;
TheMessage : WParameter;
ParamW : WParameter;
ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
var
TheRangeMin : integer;
TheRangeMax : integer;
TheRange : integer;
begin

if TheMessage = WM_VSCROLL then begin
GetScrollRange(WindowHandle,
SB_HORZ,
TheRangeMin,
TheRangeMax);
TheRange := GetScrollPos(WindowHandle,
SB_VERT);
{Make sure we wont exceed the range}
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the horizontal scroll bar}
SetScrollPos(form1.ScrollBox2.Handle,
SB_Vert,
TheRange,
true);

end;

if TheMessage = WM_HSCROLL then begin

GetScrollRange(WindowHandle,
SB_VERT,
TheRangeMin,
TheRangeMax);
TheRange := GetScrollPos(WindowHandle,
SB_HORZ);
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the vertical scroll bar}
SetScrollPos(form1.ScrollBox2.Handle,
SB_HORZ,
TheRange,
true);
end;

NewWindowProc := CallWindowProc(OldWindowProc,
WindowHandle,
TheMessage,
ParamW,
ParamL);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(@NewWindowProc)));
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin

SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(OldWindowProc));
end;

end.

Пардо не дописал- положение скролов синхронизируется, а содержимое вот не прокручиватся :( что делать??

Спасибо, разобрался! Ну и ламмер я!