CSDN博客

img IORILI

TListView组件使用方法

发表于2003/8/1 18:58:00  1131人阅读

分类: Delphi

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

0 0

相关博文

我的热门文章

img
取 消
img