WEB开发网
开发学院软件开发Delphi TListView组件使用方法 阅读

TListView组件使用方法

 2006-02-04 13:40:58 来源:WEB开发网   
核心提示:引用CommCtrl单元PRocedure TForm1.Button1Click(Sender: TObject);begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号,从0开始end;用LISTVIEW显示表中的信息:procedure vie
引用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;

Tags:TListView 组件 使用方法

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接