K kgd12 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-12 #1 ListView怎样使用呢?(选取内容) ListView是怎样像grid一样可以选取记录呢? 例:我已建有10个项目 我想每次程式自动定位到最上边,然后往下移动.直到尾结束
K kgd12 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-12 #2 ListView怎样使用呢?(选取内容) ListView是怎样像grid一样可以选取记录呢? 例:我已建有10个项目 我想每次程式自动定位到最上边,然后往下移动.直到尾结束
P plenilune168 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #4 给你慢动作看一个效果 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ListView1.SetFocus; for i:=0 to ListView1.Items.Count-1 do begin ListView1.Selected:=ListView1.Items; Application.ProcessMessages; Sleep(1000) //延时1秒 end; end;
给你慢动作看一个效果 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ListView1.SetFocus; for i:=0 to ListView1.Items.Count-1 do begin ListView1.Selected:=ListView1.Items; Application.ProcessMessages; Sleep(1000) //延时1秒 end; end;
P plenilune168 Unregistered / Unconfirmed GUEST, unregistred user! 2005-12-13 #6 ListView1.Items.IndexOf('要查找的标签') 返回要查找项的序号，如果为-1则说明没有找到
