1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// Event des ListViews
// zum Merken des zuletzt angeklickten ListViewItems
    private void ListView1_MouseUp(object sender, MouseEventArgs e)
    {
        ListViewHitTestInfo htInfo = ListView1.HitTest(e.X, e.Y);
        if (htInfo != null)
        {
            if (htInfo.Item != null && htInfo.SubItem != null)
            {
                _lvSubItemEdit = htInfo.SubItem;
            }
        }
    }                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var hts : THitTests; ListViewCursPos : TPoint; SelectedItem : TListItem;
begin
   hts := ListView1.GetHitTestInfoAt(ListViewCursPos.X, ListViewCursosPos.Y) ;
   if hts = [htOnLabel] then  //htOnItem bleibt ohne Ergebnis
   begin
     SelectedItem := ListView1.Selected;
     Label1.Caption := SelectedItem.Caption;
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses CommCtrl;
{$R *.dfm}



procedure TForm3.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  // 2012 by Thomas Wassermann
  var
   ht:TLVHitTestInfo;
begin
    ht.pt := Point(x,y);
    SendMessage(ListView1.Handle, LVM_HITTEST, 0, Longint(@ht));
    if ht.flags=1 then
        SendMessage(ListView1.Handle, LVM_SUBITEMHITTEST, 0, Longint(@ht));

   Showmessage(BoolToStr((ht.flags and LVHT_ONITEMLABEL) = LVHT_ONITEMLABEL) + #13#10 + Format('Item: %d  SubItem: %d Group: %d',[ht.iItem,ht.iSubItem,ht.iGroup]));
end;