VertScrollBox и запуска анимации вложенных контролов

[brunnengi]

Здравствуйте.

Имеем TVertScrollBox. Внутри у него лежат несколько штук TLayout'ов?

У каждого TLayout на событие OnClick есть код запускающий анимацию.

Когда нажимаем на TLayout, то он увеличивается в высоту.

Проблема в том что, если я просто прокручиваю TVertScrollBox и пальцем упираюсь в TLayout, то срабатывает на нем анимация. 

Как исправить это, подскажите пожалуйста?

[Равиль Зарипов (ZuBy)]

выбери другое событие например OnMouseUp

[brunnengi]

Не помогло.

Как быть?

[Nix0N]

На OnMouseDown в TVertScrollBox отключаем обработку OnClick TLayout. На OnMouseUp TVertScrollBox - включаем обработку OnClick TLayout.

 

OnMouseDown:

TLayout.OnClick := nil;

Или в событии TVertScrollBox.OnMouseDown присваиваем всем TLayout.Hitest := FALSE

В событии TVertScrollBox.OnMouseUp все TLayout.HiTest := TRUE

 

В общем решений масса.

[brunnengi]

Ну такой вариант я тоже видел. Да и можно просто на отслеживание скроллинга. Т.е. если скроллинг произошел, значит не обрабатываем нажатие, а если скролинга не было, значит пользователь тыкнул пальцем.

Просто хотел знать, есть ли решение одной галки.

[Nix0N]

Каким образом собираетесь отслеживать событие скрола ? В FM пока еще отсутствует система сообщений.

[brunnengi]

-

[Brovin Yaroslav]

Вы можете использовать OnTap для этих целей. Он вызовется, только когда было непосредственно нажатие, без сдвига пальца.

[brunnengi]

Вы можете использовать OnTap для этих целей. Он вызовется, только когда было непосредственно нажатие, без сдвига пальца.

Эмм.. Если не секрет, то где его искать? У моих Layout'ов нет такого события(((