在MouseDown里判断位置
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
    i: integer;
    t:  integer;
begin
    t:=0;
    for i:= 0 to ListView1.Items.Count-1 do
    begin
        if T > x then ListView1.Tag:= i;
    end;
end;用的时候ListView1.items[0].Subitems[ListView1.tag]
就能取得当前的subitem;宽在listView1.columns里面
高一般是不能变的,好象是20,你直接用就完了。