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

[97mik]

Поместил Image на итем в ListBox и при скроле ListBox (жму на Image и тяну вверх) срабатывает OnClick у Image. Как это исправить?

[Brovin Yaroslav]

Если TImage не должен принимать никакие события мыши, то выставить ему:

HitTest = False

[97mik]

Он должен принимать событие нажатия, но не при скроллинге.

[Brovin Yaroslav]

Если такое поведение наблюдается, то его можно обойти, вручную определив момент нажатия на картинку.

1. Создаем TListBoxItem
2. Добавляем в него TImage и выставляем HitTest = False.
3. Переопределяем событие итема OnMouseUp. Внутри метода определяем оторвали палец от экрана на текущей картинке или нет. Если да, то клик был по картинке.

procedure TForm6.ListBoxItem2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Image1.ParentedRect.Contains(TPointF.Create(X, Y)) then
    ShowMessage('Click on Image');
end;

P.S. Описанное вами поведение мне воспроизвести не удалось. Однако, если у вас по каким-либо причинам оно воспроизводится, используйте мои рекомендации выше.