TListView组件使用方法计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:30:30
来源 100Test.Com百考试题网

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

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台