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!)