ListView里如果得到鼠标点击是哪列？

Question

在ListView中，鼠标点击时，可以用GetItemAt来得到点的是哪一行，
procedure TZongheBaoBiaoForm.ListMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Item : TListItem;
begin
  Item := List.GetItemAt(x,y);
  if Item=nil then begin
   //...
  end;
end;各位大哥，我怎么才能得到鼠标点是那一列啊？(ListView的ViewStyle=vsReport)

Answer 1

行是知道了，列可以用Y 和Columns[n].width来关联计算出来。
不过有滚动条的时候这就不行了。

Answer 2

有滚动条的时候：
用
var
  Item : TListItem;
begin
  Item := List.GetItemAt(x,y);
  if Item=nil then begin
    //相对位置用X-Item.Left 就行了。
  end;
end;