TListView组件使用方法

2/4/2006来源:Delphi教程人气:13076

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