Срабатывает OnClick на ListBox при скроллинге

[Ra72]

Уважаемые эксперты!
Подобная тема уже была, но она немного не о том, о чем я хотел бы спросить.
Есть список, и у элементов этого списка определены события OnClick.
Если запустить его на мобильном устройстве, то прокрутка списка осуществляется проведением пальцем по списку.
В момент отрыва пальца от экрана срабатывает событие OnClick на элементе списка, но я делаю скроллинг и подразумеваю пролистывание, а не нажатие.
Как мне сделать поведение моего списка ожидаемым, чтобы при скроллинге не срабатывал OnClick?
Архив проекта: TestListBox.rar 

Изменено 17 мая, 2016 пользователем Ra72

[zairkz]

Используйте свойство OnTap

Для удобства разработки можно повторить команды OnTap в OnClick в директивах:

Procedure ListBoxOnClicl;;;

begin

{$IFDEF MSWINDOWS}

BlaBla

{$ENDIF}

end;

[Ra72]

Помогло, только для срабатывания OnTap пришлось на Item-ах установить HitTest=true. Думал скроллинг не будет работать, но нет, - работает. Выделение элемента только не работает, но оно мне не нужно.

[Ingalime]

А как же сделать по человечески, чтобы и выделение элемента работало? Спасибо.

[slav_z]

в OnClick элемента списка сделайте проверку:

procedure TForm1.ListBoxItemClick(Sender: TObject);
begin
  if not ListBox.AniCalculations.Moved then DoItemClick;
end;

 

[Anatoliy]

В 06.02.2020 в 18:25, slav_z сказал:

в OnClick элемента списка сделайте проверку:

procedure TForm1.ListBoxItemClick(Sender: TObject);
begin
  if not ListBox.AniCalculations.Moved then DoItemClick;
end;

 

Прощу прощения за тупость но я, например, не понял. Что можно отказаться от OnTap? Что такое DoItemClick? Например у меня пять итемов и в их OnTap-ax коды (ShowMessage 1,  ShowMessage 2.....)

Так как будет выглядеть общая картина чтобы и выделение было и код срабатывал и скролинг работал нормально? Благодарю.

[slav_z]

OnTap лучше не используйте, я бы сделал на обычный OnClick... перед вызовом действий, связанных с элементами списка (ваши ShowMessage 1,  ShowMessage 2 ), просто проверьте "а не прокручивается ли сейчас listbox (scrollbox)" с помощью ListBox.AniCalculations.Moved...

[Morfi]

В 15.02.2020 в 17:36, slav_z сказал:

OnTap лучше не используйте, я бы сделал на обычный OnClick... перед вызовом действий, связанных с элементами списка (ваши ShowMessage 1,  ShowMessage 2 ), просто проверьте "а не прокручивается ли сейчас listbox (scrollbox)" с помощью ListBox.AniCalculations.Moved...

Не могли бы аргументировать, почему лучше не использовать OnTap?

[slav_z]

39 минут назад, Morfi сказал:

Не могли бы аргументировать, почему лучше не использовать OnTap?

я уже не помню что в этой ветке... OnTap можно использовать для мобильных приложений, для кроссплатформенных лучше обычный OnClick