Синхронная прокрутка в SynEdit

[LISTAT]

Доброго времени суток! Подскажите, кто знает как сделать синхронную прокрутку двух SynEdit. Примеров куча для Memo,но для SynEdit не работает. Заранее спасибо!

[ych_del]

procedure TForm1.SynEdit1Scroll(Sender: TObject; ScrollBar: TScrollBarKind);
begin
   SynEdit2.TopLine := SynEdit1.TopLine;
end;

Оно?

[volvo877]

// Подготавливаем SynEdit-ы к синхронной прокрутке
procedure TForm1.FormCreate(Sender: TObject);
begin
   SynEdit1.OnStatusChange := SynEditStatusChange;
   SynEdit1.Tag := 1;
   SynEdit2.OnStatusChange := SynEditStatusChange;
   SynEdit2.Tag := 2;
end;

// Это - приватный метод класса формы, который и будет прокручивать
// один SynEdit при прокрутке пользователем другого:
procedure TForm1.SynEditStatusChange(Sender: TObject;
                 Changes: TSynStatusChanges);
var Syn : TSynEdit;
begin
   if TSynStatusChange.scTopLine in Changes then
   // Как изменилось состояние? Изменился ли индекс верхней строки?
   begin
      Syn := Sender as TSynEdit;
      case Syn.Tag of
         1 : SynEdit2.TopLine := Syn.TopLine; // Тогда другому компоненту выставить такой же индекс
         2 : SynEdit1.TopLine := Syn.TopLine;
      end;
   end;
end;

И всего делов

Хм... Вот, блин, в Дельфийской версии есть оказывается OnScroll. Почему в Лазарусе нету, интересно...

[LISTAT]

Всем большое спасибо. Все работает!!!