Как перемещать скроллеры со свойством Visible:= False у компонента TScrollBox?

[Vova777]

Сообщение от Sibedir

Напиши и увидешь if Key = VK_RIGHT then ScrollBox1.ScrollBy(20, 0);

Спасибо, теперь понял.
А как теперь сделать ограничения перемещению? Какую переменную смотреть? Или проверять положение (св-во Position) скроллеров?

[Sibedir]

Ну, если расположение и размер компонентов в скролбаре статичны, то я бы использовал в качестве ограничения Top самого верхнего компонента, Left самого левого ну и далее по аналогии. Если компоненты изменяются динамически (я так понял не наш случай), то тоже самое, но при каждом сдвиге эти ограничивающие компоненты нужно искать с помощью цикла.

[Vova777]

Сообщение от Sibedir

Ну, если расположение и размер компонентов в скролбаре статичны, то я бы использовал в качестве ограничения Top самого верхнего компонента, Left самого левого ну и далее по аналогии. Если компоненты изменяются динамически (я так понял не наш случай), то тоже самое, но при каждом сдвиге эти ограничивающие компоненты нужно искать с помощью цикла.

это понятно, я имею ввиду какую переменную смотреть?

[Sibedir]

Ну например:
ScrollBox1.ScrollBy(-20, 0);
если (СамыйПравыйКомпонент.Left + СамыйПравыйКомпонент.Width) < 10 то
ScrollBox1.ScrollBy((10 - СамыйПравыйКомпонент.Left - СамыйПравыйКомпонент.Width), 0);

[Vova777]

Спасибо, теперь все понятно.