listview如何定位

Question

如何将listview中光标移到程序指定行

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    ListView1: TListView;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
    MyItem:TlistItem;
begin
    FOR I:=1 to StrToInt(edit1.Text) do
    begin
        MyItem:=listview1.Items.Add;
        MyItem.Caption:='设备'+IntToStr(I);
    end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
    listview1.SetFocus;
    listview1.Items.Item[StrToInt(edit2.Text)].Selected:=True;
end;end.
--------------------------------------------------------------
edit1-------------用于输入创建的item的个数
edit2-------------用于输入被选择的item的index
button1-----------用来创建items
button2-----------用来选择item

Answer 2

试试这个，与字符串匹配定位的：
var
  lvi: TListItem;
begin
  ListView1.RowSelect := True;
  //ListView1.ItemIndex := 1;
  lvi := ListView1.FindCaption(0, '软件类', False, Frue, True);
  if lvi = nil then Exit;
  ListView1.Selected := lvi;
  ListView1.SetFocus;
  listView1.Selected.MakeVisible(True);
end;

Answer 3

问题已解决
但是我得班最后一个参数设为false才可以，为申莫？
FindCaption((StartIndex: Integer; Value: string; Partial, Inclusive, Wrap: Boolean)
各变量是何意思，我大概看懂了前几个：搜索启示位置，搜索变量，后边的几个变量是深莫意思。
另外还有一个问题如果可以解决还有分
http://community.csdn.net/Expert/topic/3749/3749571.xml?temp=.5095178

Answer 4

没人吗   weizi2000(秋风啊) 在吗来领分把

Answer 5

listview1.Items[2].Checked:=true;
listview1.Selected:=listview1.Items[2];
listview1.SetFocus;

Answer 6

Partial, Inclusive, Wrap: Boolean  //三个boolean型变量
partial为tru是，有子串相同就匹配，为False是要完全匹配
Inclusive为真时从startindex的指定的位置开始查找，就是说startindex+1
wrap为真是会在从开始位置没找到时再从头开始找