ListView - Zeile herrausfinden

[bitsetter]

Hi,

so etwa?

Delphi-Quellcode:

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i: integer;
begin
  for i:= 0 to Pred(ListView1.Items.Count) do
    if PtInRect(Listview1.Items.Item[i].DisplayRect(drBounds), Point(x, y)) then
    begin
      Caption:= Format('Item: %d', [i]);
      break;
    end;
end;