如何确定Delphi FMX中刷卡的列表视图上的哪个项目

Question

我想向左滑动＆amp;在Delphi 11.1 Alexandra中的TlistView对象中的一个项目。

我确实选择了左＆amp;来自标准手势和手势的正确手势效果很好，但我无法确定哪些项目的刷新。

procedure TTest.ListView1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
        Case EventInfo.GestureID of
             sgiLeft  :
                   begin
                       ListView1.Items.Delete(ListView1.Selected.Index);
                   end;
        End;
end;

我确实尝试通过使用ListView1.selected.index来获得，但不幸的是，它并不稳定，因为有时在选择事件之前出现手势。

我还尝试使用ListView1.Itemindex，但没有机会。

如果您知道如何获得刷新的项目索引，请提供帮助。

谢谢

Answer 1

感谢雷米的回答。请参阅下面的方法

procedure TForm1.ListView1Gesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
   R: TRectF;
   I: Integer;
   LStartItemIndex, LEndItemIndex : Integer;
begin    

     Case EventInfo.GestureID of
          sgiLeft  :
                    begin
                    //To find out the fist and the last item index of listview items on the screen
                    GetStartEndItemsIndex(ListView1, LStartItemIndex, LEndItemIndex);

                    //To idenfity the the item swiped to left 
                    for I := LStartItemIndex-1 to LEndItemIndex  do
                    begin
                          R := ListView1.GetItemRect(I);

                          if (R.Bottom > EventInfo.Location.Y) and (R.Top < EventInfo.Location.Y) then
                          begin
                              ListView1.Items.Delete(I); break;
                          end;
                    end;
end;

procedure TForm1.GetStartEndItemsIndex(const AListView : TListView; out AStartItemIndex : Integer; out AEndItemIndex : Integer);
var
   LViewportStart, LViewportEnd, LItemAbsEnd : Single;
   LItemIndex : Integer;
begin

   AStartItemIndex := -1;
   AEndItemIndex   := -1;

   LViewportStart := AListView.ScrollViewPos;
   LViewportEnd := AListView.Height + LViewportStart;

   for LItemIndex := 0 to AListView.Items.Count - 1 do
   begin
        LItemAbsEnd := AListView.GetItemRect(LItemIndex).Bottom + AListView.ScrollViewPos;
        if (AStartItemIndex < 0) and (LItemAbsEnd >= LViewportStart) then
        begin
           AStartItemIndex := LItemIndex;
        end;
        if (AStartItemIndex >= 0) and (AEndItemIndex < 0) and (LItemAbsEnd >= LViewportEnd) then
        begin
             AEndItemIndex := LItemIndex;
             Break;
        end;
    end;
    if (AEndItemIndex < 0) and (AListView.Items.Count > 0) then
    begin
       AEndItemIndex := AListView.Items.Count - 1;
    end;
 end;