FMX: ListviewItem bei OnTap

[KodeZwerg]

Delphi-Quellcode:

Function GetIndexAtPos (LV: TListView; TP: TPointF): Integer;
var
  I: Integer;
  TR: TRectF;
begin
  Result := -1;

  for I := 0 to LV.Items.Count-1 do begin
    TR := LV.GetItemRect (I);

    if TR.Contains (TP) then begin
      Result := I;
      Break;
    end;
  end;
end;

Oder benutze es so in Deinem Aufruf, wieder das gleiche, wenn Result -1 dann war nichts selektiert.

(Funktion von Harry Stahl!)