Отключить прокрутку временно, компонента TvertScrollBox в Delphi?

Question

Я делаю приложение для устройств IOS и Android в Delphi Rad Studio XE10.1 Berlin, и у меня есть проблема.

В форме у меня есть TvertScrollbox, и внутри нее есть много компонентов для отображения, а один из них - Tlistview.

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

Есть ли способ отключить прокрутку из TvertScrollbox временно, а затем снова включить?

Надеюсь, я хорошо объяснил. Мой английский очень плохой, спасибо.

Answer 1

Да, вы можете отключить TvertScrollbox просто положить AniCalculations.TouchTracking: = [], а затем положить его обратно в AniCalculations.TouchTracking: = [ttVertical]

Я сделал TvertscollBox, которые реализуют все такого рода поведения (отключить прокрутку, когда объект ребенок прокрутки), а также исправить некоторые другие ошибки ... исходный код слишком большой, чтобы скопировать прошлое здесь, так что вы можете увидеть прямо здесь:

(СВН) https://svn.code.sf.net/p/alcinoe/code/

посмотреть блок ALFmxLayouts

Если вы хотите увидеть демонстрацию дезактивации прокрутки, посмотрите проект/demos/alfmxControls/или загрузите напрямую https://sourceforge.net/p/alcinoe/code/HEAD/tree/demos/ALFmxControls/Android/Release/ALFmxControls/bin/ALFmxControls.apk?format=raw или сократите вариант, если вам нужно написать его вручную в android: http: // tinyurl .com/zsamrbn (url из скомпилированного apk для установки на android) в демо вы можете видеть tabcontrol, когда вы прокручиваете его, прокрутка vertscrollbox деактивируется