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

很多知名下载软件都有下载管理器。使用TListView显示下载过程，您可以清楚地看到已经下载了多少内容，还有多少内容需要下载。Delphi本身并没有提供这样的控件，但是我们可以在TListView的基础上增加一个进度条控件(TProgressBar)来实现这个功能，这样既可以满足我们的实际需求，又不会“牺牲”掉口袋里亮晶晶的钱。

我该怎么办？让我们看看...好了，先从TListView的ViewStyle属性说起。这个属性是我们常用的。当TListView作为表格来显示各种数据时，我们往往会将这个属性设置为vsReport。设置完成后，最左边一列包含一个小图标和数据，从第二列开始显示每个字段的数据。这是我们看到TListView最常见的方式。每天，当我们打开Windows资源时，

打开Delphi，创建一个新项目，在自动生成的窗体上放置一个TListView控件，并在其Columns属性中定义两列。第一列用于存储数据项，第二列用于存储进度。

在窗体中添加一个按钮，并将下面的代码添加到按钮的Click事件中，这样当按钮被按下时，TProgress就可以显示在TListView的第二列中。添加项目的代码如下:

程序TForm1。AddItemButtonClick(发件人:to object)；
const
Pb column index = 1；
Pb max = 100；
var
Li:TListItem；
LV:TListView；
Pb:TProgressBar；
Pb rect:TRect；
begin
LV:= listview ex 1；
//创建新的ListItem
li := lv。Items . Add李。标题:= 'Item ' + IntToStr(lv。项数)；

//创建一个ProgressBar，放在TListView
Pb的第二列:= tpprogress bar . Create(nil)；
pb。父:= lv李。数据:= pb
p rect:= Li。display rect(dr bounds)；
pbRect。Left := pbRect。左+
lv。列[-1 + pbColumnIndex]。宽度；
pbRect。右:= pbRect。左+
lv。Columns[pbColumnIndex]。宽度；
pb。BoundsRect:= Pb rect；
end；//添加项目按钮事件