Скроллинг ScrollBox без видимой Scrollbar с помощью Perform() и SendMessage в Delphi

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

Одной из распространенных задач в разработке под Delphi является управление скроллингом компонента ScrollBox, даже если видимая полоса прокрутки отключена. Вопрос о том, как сделать это с помощью Perform() или SendMessage, является актуальным для многих разработчиков.

Проблема

При отключении видимости горизонтальной полосы прокрутки (HorizontalScrollBar.Visible := False) скроллинг компонента ScrollBox с помощью кода вида:

sbxStudyBtnHolder.Perform(WM_HSCROLL, SB_LINEDOWN, 0);

не работает. Как сделать возможным скроллинг в такой ситуации?

Подтвержденный ответ

Хотя Perform() и SendMessage не работают в этом случае, вы все равно можете управлять скроллингом ScrollBox с помощью метода ScrollBy(). Вот примеры кода, которые решают проблему:

1. Скроллинг на заданное расстояние:

ScrollBox1.ScrollBy(-8, 0);

1. Скроллинг на величину шага горизонтальной полосы прокрутки:

ScrollBox1.ScrollBy(-ScrollBox1.HorzScrollBar.Increment, 0);

Альтернативный ответ

Если вам нужно вернуть видимость скролла после скроллинга, вы можете использовать метод ScrollInView(). Например, чтобы показать определенный контрол:

ScrollBox1.ScrollInView(panel[n]);

Где panel[n] - это TControl, который вы хотите видеть.

Вывод

Хотя Perform() и SendMessage не работают для скроллинга ScrollBox без видимой полосы прокрутки, метод ScrollBy() предоставляет простое и эффективное решение для управления скроллингом в такой ситуации. Кроме того, метод ScrollInView() может быть полезен для возврата видимости скролла после скроллинга.

Создано по материалам из источника по ссылке.

Как управлять скроллингом ScrollBox без видимой Scrollbar с помощью Perform() и SendMessage в Delphi?

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

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

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