TListView组件使用方法

最新推荐文章于 2022-12-31 16:54:12 发布

原创最新推荐文章于 2022-12-31 16:54:12 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#listview #integer #table

Delphi 专栏收录该内容

5 篇文章

订阅专栏

博客介绍了引用CommCtrl单元后，通过ListView_DeleteColumn函数删除ListView指定列的操作，还给出了用ListView显示表中信息的代码，包括清空列表、遍历数据集并添加到ListView等步骤。

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