在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,你直接用就完了。
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,你直接用就完了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货