如何定位到listview下的一个item

Question

具体怎么写的，能说说吗？thanks

Answer 1

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
        TListView(Sender).GetItemAt(X,Y);
end;

Answer 2

还可以用  listview1.items[index].selected := true;

Answer 3

for i:=0 to listview1.Items.Count-1 do begin
         if listview1.Items[i].Caption=Edit1.Text then begin
            listview1.Items[i].Selected:=True;
            break;
         end;
想让listview自动转到值为Edit1.Text且被选中。如何不队啊。

Answer 4

1. 将ListView1的HideSelection属性设为false
2. 程序改成如下：
for i:=0 to listview1.Items.Count-1 do begin
         if listview1.Items.Item[i].Caption =Edit1.Text then begin
            listview1.Selected :=ListView1.Items.Item[i];
            break;
         end;
      end;

Answer 5

var
   tempitem:TListItem;
if lv_1.selcount>0 then
begin
tempitem:=listview1.selected;
while TmpItem<>nil do
begin
//addd you codes
TmpItem:=listview1.GetNextItem(TmpItem,sdall,[isselected]);
end;
end;