作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

引用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;

相关软件：