Синхронизация двух компонентов ScrollBox

Решить задачу помогут обработчики событий OnScroll (в данном примере два компонента ScrollBox (ScrollBar1 и ScrollBar2) расположены на форме TMainForm):

procedure TMainForm.ScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ScrollBar2.Position:=ScrollPos;
end;

procedure TMainForm.ScrollBar2Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  ScrollBar1.Position := ScrollPos;
end;

Недавно добавленные исходники
• Animation Loaders 823 • DeLiKaTeS Tetris (Тетрис) 5 783 • TDictionary Custom Sort 7 739 • Fast Watermark Sources 7 419 • 3D Designer 10 640 • Sik Screen Capture 7 958 • Patch Maker 8 176 • Айболит (remote control) 8 221 • ListBox Drag & Drop 7 029 • Доска для игры Реверси 100 445 • Графические эффекты 8 299 • Рисование по маске 7 676 • Перетаскивание изображений 6 279 • Canvas Drawing 6 654 • Рисование Луны 6 577 • Поворот изображения 5 728 • Рисование стержней 4 669 • Paint on Shape 3 369 • Генератор кроссвордов 4 339 • Головоломка Paletto 3 495 • Теорема Монжа об окружностях 4 310 • Пазл Numbrix 2 786 • Заборы и коммивояжеры 3 721 • Игра HIP 2 507 • Игра Go (Го) 2 501 • Симулятор лифта 2 895 • Программа укладки плитки 2 326 • Генератор лабиринта 3 053 • Проверка числового ввода 2 557 • HEX View 2 964

Синхронизация двух компонентов ScrollBox

Похожие по теме исходники