DelphiListView的用法(常用技巧).doc

DelphiListView的用法(常用技巧)/增加i:=ListView1.Items.Count;withListView1dobeginListItem:=Items.Add;ListItem.Caption:=IntToStr(i);ListItem.SubItems.Add(第+IntToStr(i)+行);ListItem.SubItems.Add(第三列内容);end;/按标题删除fori:=ListView1.Items.Count-1downto0DoifListView1.Itemsi.Caption=Edit1.TextthenbeginListView1.Items.Itemi.Delete();/删除当前选中行end;/选中一行ifListView1.SelectednilthenEdit1.Text:=ListView1.Selected.Caption;/listview1.ItemsListview1.Items.Count-1.Selected:=True;/listview1.ItemsListview1.Items.Count-1.MakeVisible(True);procedureTForm1.Button2Click(Sender:TObject);/选择第一条beginlistview1.SetFocus;listview1.Items0.Selected:=True;end;procedureTForm1.Button1Click(Sender:TObject);/选择最后一条beginlistview1.SetFocus;listview1.ItemsListview1.Items.Count-1.Selected:=True;end;/这是个通用的过程procedureListViewItemMoveUpDown(lv:TListView;Item:TListItem;MoveUp,SetFocus:Boolean);varDestItem:TListItem;beginif(Item=nil)or(Item.Index-1=lv.Items.Count)and(notMoveUp)thenExit;lv.Items.BeginUpdate;tryifMoveUpthenDestItem:=lv.Items.Insert(Item.Index-1)elseDestItem:=lv.Items.Insert(Item.Index+2);DestItem.Assign(Item);lv.Selected:=DestItem;Item.Free;finallylv.Items.EndUpdate;end;ifSetFocusthenlv.SetFocus;DestItem.MakeVisible(False);end;/此为调用过程，可以任意指定要移动的Item，下面是当前(Selected)ItemListViewItemMoveUpDown(ListView1,ListView1.Selected,True,True);/上移ListViewItemMoveUpDown(ListView1,ListView1.Selected,False,True);/下移TListView组件使用方法引用CommCtrl单元procedureTForm1.Button1Click(Sender:TObject);beginListView_DeleteColumn(MyListView.Handle,i);/i是要删除的列的序号，从0开始end;用LISTVIEW显示表中的信息：procedureviewchange(listv:tlistview;table:tcustomadodataset;vari:integer);begintlistview(listv).Items.BeginUpdate;listv:listview名trytlistview(listv).Items.Clear;withtabledotableorquery名beginactive:=true;first;whilenoteofdobeginlistitem:=tlistview(listv).Items.add;listitem.Caption:=trim(table.fieldsi.asstring);/listitem.ImageIndex:=8;next;end;end;finallytlistview(listv).Items.EndUpdate;end;end;ListView使用中的一些要点。以下以一个两列的ListView为例。增加一行：withListView1dobeginListItem:=Items.Add;ListItem.Caption:=第一列内容;ListItem.SubItems.Add(第二列内容);end;清空ListView1：ListView1.Items.Clear;得到当前被选中行的行的行号以及删除当前行：Fori:=0toListView1.Items.Count-1DoIfListView1.Itemsi.Selectedthen/i=ListView1.Selected.indexbeginListView1.Items.Delete(i);/删除当前选中行end;当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。读某行某列的操作：Edit1.Text:=listview1.Itemsi.Caption;/读第i行第1列Edit2.Text:=listview1.Itemsi.SubItems.strings0;/读第i行第2列Edit3.Text:=listview1.Itemsi.SubItems.strings1;/读第i行第3列以次类推，可以用循环读出整列。将焦点上移一行：Fori:=0toListView1.Items.Count-1DoIf(ListView1.Itemsi.Selected)and(i0)thenbeginListView1.SetFocus;ListView1.Items.Itemi-1.Selected:=True;end;不过在Delphi6中，ListView多了一个ItemIndex属性，所以只要ListView1.SetFocus;ListView1.ItemIndex:=3;就能设定焦点了。Delphi的listview能实现交替颜色么？procedureTForm1.ListView1CustomDrawItem(Sender:TCustomListView;Item:TListItem;State:TCustomDrawState;varDefaultDraw:Boolean);vari:integer;begini:=(SenderasTListView).Items.In