ITPub博客

首页 > IT基础架构 > 网络安全 > TListView组件使用方法 (转)

TListView组件使用方法 (转)

原创 网络安全 作者:amyz 时间:2007-11-10 19:18:25 0 删除 编辑
TListView组件使用方法 (转)[@more@]

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


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-981623/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339239