Android 如何使用Delphi XE6区分Firemonkey TListView项目上的OnClick和swip

我有一张上面有TListView的表格。我加载了一些项目，它显示良好。 如果我点击（OnClick）一个项目，我可以显示第二个表单，其中包含项目详细信息和一些附加选项

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

所以，简短的版本是，当刷完之后，如何停止OnClick事件的触发

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

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;

---

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

使用

OnTap

而不是

OnClick

event

稍微不同的问题，但最终是相同的问题。看这里：谢谢你@这个家伙的回复。这是类似的（我可以将该解决方案作为权宜之计实施），但我认为轻击和轻击之间的时间差非常短，并且很难可靠地计算。此外，如果按住足够长的时间，长时间的轻击将在鼠标上升之前触发。我现在不需要长时间的点击，但是如果能找到一个更可靠的解决方案来利用所有可用的手势，而不是仅仅两个，那将是一件非常棒的事情。