TListView组件使用方法

核心提示：引用CommCtrl单元PRocedure TForm1.Button1Click(Sender: TObject);begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始end;用LISTVIEW显示表中的信息：procedure vie

引用CommCtrl单元 PRocedure TForm1.Button1Click(Sender: TObject); begin 　 ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始 end; 用LISTVIEW显示表中的信息：
procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);
 begin
　　　 tlistview(listv).Items.BeginUpdate;　 {listv:listview名}
　　　  try
　　　　  tlistview(listv).Items.Clear;
　　　　  with table do　　　　 {table or query名}
　　　　　 begin
　　　　　  active:=true;
　　　　　  first;
　　　　　  while not eof do
　　　　　　 begin
　　　　　　  listitem:=tlistview(listv).Items.add;
　　　　　　  listitem.Caption:=trim(table.fields[i].asstring);
　//　　　　　  listitem.ImageIndex:=8;
　　　　　　 next;
　　　　　　 end;
　　　  end;
　　　  finally
　　　  tlistview(listv).Items.EndUpdate;
　　  end;
 end;