TListView元件使用方法 (轉)

TListView元件使用方法 (轉)[@more@]

引用CommCtrl單元

procedure TForm1.Button1Click(Sender: T);

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;