ListView中 如何得到选中列的caption，这个能实现吗？

Question

ListView中 如何得到选中列的caption，这个能实现吗？我得到选中行的caption，可以是ListView1.Selected.Caption     那选中列的caption能得到吗 ？先谢过了            

Answer 1

ListView1.Selected.SubItems[0] 
这是第二列的值吧，我要的是选中列的caption值 ，就是列表头

Answer 2

ListView根本就不存在选中第二列，要么选中第一列，要么选中行。listview1.columns.items[0].caption
这个就能表示每列的标题 

Answer 3

for循环能给个思路吗   如何for循环呢  初次用ListView  谢谢

Answer 4

看下是不是你要的，代码如下：
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i, X1, X2: integer;
begin
  X1 := 0;
  X2 := 0;
  for i := 0 to ListView1.Columns.Count - 1 do
  begin
    X2 := X2 + ListView1.Column[i].Width;
    if (X > X1) and (X <= X2) then
    begin
      Memo1.Lines.Add(ListView1.Column[i].Caption);
      Break;
    end;
    X1 := X2;
  end;
end;