android - 如何使用 Delphi XE6 区分 Firemonkey TListView 项目上的 OnClick 和 Swipe

Question

我有一个带有 TListView 的表单。我加载了一些项目，它显示得很好。 如果我点击(OnClick)某个项目，我可以显示第二个表单，其中包含该项目的详细信息以及一些其他选项。

但是，如果我向右滑动(以激活“删除”按钮)，我会收到 OnClick 事件，并显示详细信息表单。当我关闭“详细信息”表单(或使用“后退”按钮)时，TListView 现在显示“删除”按钮。

那么，简短的版本是如何在滑动完成时阻止 OnClick 事件触发？

我尝试添加一个标志，并在 OnDeleteChangeVisible 和/或 OnGesture 中设置该标志，但该标志似乎从未被设置，并且当我在 Debug模式下运行时，我没有看到这些事件触发。

var isDelete: Boolean

procedure TfrmTaskList.lvTaskListDeleteChangeVisible(Sender: TObject;
  AValue: Boolean);
begin
  if (AValue = True) then
    isDelete := True
  else
    isDelete := False;
end;

procedure TfrmTaskList.lvTaskListGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
    if (EventInfo.GestureID = sgiRight) then
    begin
      isDelete := True
    end
    else
    begin
      isDelete := False;
    end;
end;

任何帮助、建议、资源将不胜感激。谢谢

Answer 1

使用 OnTap 代替 OnClick 事件