Delphi实现下载进程的动态显示

• 
  　　许多知名的下载软件中都有下载管理器，用一个TListView来显示下载的进程，你可以清楚的看到已经下载了多少，还有多少内容仍需下载，这样的控件，Delphi自身并未提供，但我们可以在TListView的基础之上加入进度条控件（TProgressBar)来实现这一功能，这样就能既能满足我们的实际需求，又不用“牺牲”口袋里白花花的银子，还能增加我们对控件嵌套的认识，一箭三雕，何乐而不为呢？
  
  　　到底该怎么做呢？让我想想……好了让我们先从TListView的ViewStyle属性开始吧，这个属性我们常用，把TListView做为一个表格来显示各种数据时，我们常常把这个属性设置成vsReport，设置之后，最左边的列（Column)包含一个小的图标和数据，从第二列开始就是显示一个个字段的数据，这是我们最常见的TListView的样子，每天一打开Windows的资源管理器，我们就能看到它。（如图一）
  
  
  点击查看大图
  
  　　打开Delphi，新建一个工程，在自动生成的Form上，放置一个TListView控件，在它的Columns属性中定义两列，第一列放置数据项（Item)，第二列用来存放Progress.（如图二）
  
  
  
  
  　　在Form上加入一个按钮（Button)，在按钮的Click事件中加入如下代码，用于在按下按钮时，可以在TListView的第二列显示TProgress。
  
  　　添加Item的代码如下：
  
  procedure TForm1.AddItemButtonClick(Sender: TObject);
  const
  　pbColumnIndex = 1;
  　pbMax = 100;
  var
  　li : TListItem;
  　lv : TListView;
  　pb : TProgressBar;
  　pbRect : TRect;
  begin
  　lv := ListViewEx1;
  　//建立一个新的ListItem
  　li := lv.Items.Add;
  　li.Caption := ’Item ’ + IntToStr(lv.Items.Count);
  
  　//建立一个ProgressBar，置入TListView的第二列中
  　pb := TProgressBar.Create(nil);
  　pb.Parent := lv;
  　li.Data := pb;
  　pbRect := li.DisplayRect(drBounds);
  　pbRect.Left := pbRect.Left +
  　lv.Columns[-1 + pbColumnIndex].Width;
  　pbRect.Right := pbRect.Left +
  　lv.Columns[pbColumnIndex].Width;
  　pb.BoundsRect := pbRect;
  end; //添加ItemButton事件
  　　上面的代码可以实现这样的功能：按下按钮之后，一个Progressbar被建立，一个对Progressbar的引用被加进ListItem的Data属性，最后，Progressbar被放置在由pbColumnIndex属性指定的列中。
  
  　　当想要将一个项（Item）从TListView中删除，你必须先判断添加进去的Progressbar的内存占用是否已经被释放，如果已经完成，就继续。
  
  　　删除Item的代码如下：
  
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi实现下载进程的动态显示 相关文章：
• ·Delphi实现下载进程的动态显示
• Delphi实现下载进程的动态显示 相关软件

上一篇:Delphi下的ADO使用方法！

下一篇:Delphi动态生成定义数据库

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐