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

Delphi , Компоненты и Классы , TScrollBox

Решить задачу помогут обработчики событий 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;

Проблема синхронизации двух полос прокрутки - это классическая задача!

Ваш код является хорошим стартом, но имеет некоторые ограничения. Например, если пользователь быстро прокручивает одну полосу и затем другую, ваш код может не успеть отреагировать на изменения.

Вот альтернативное решение, использующее более надежный подход:

type
  TForm = class(TForm)
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
    procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
  private
    FScrollBarPosition: Integer;
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form: TForm;

implementation

constructor TForm.Create(AOwner: TComponent);
begin
  inherited;
  FScrollBarPosition := 0;
end;

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

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

В этом коде мы используем приватный переменную FScrollBarPosition для хранения текущего положения одной полосы прокрутки. Когда-либо полоса прокрутки изменяется, мы обновляем эту переменную и затем устанавливаем другую полосу прокрутки в соответствующее положение.

Таким образом, это подход обеспечивает синхронизацию полос прокрутки даже при быстром прокручивании или прокручивании в разных направлениях.

Обратите внимание, что вам нужно объявить переменную FScrollBarPosition как приватное поле класса формы (в разделе реализации) для того, чтобы код работал корректно.

Синхронизация двух компонентов ScrollBox на форме TMainForm обеспечивается за счет обработки событий OnScroll, которые изменяют положение одного скроллбара в зависимости от изменения положения другого.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TScrollBox ::