在自动生成的Form上,Delphi实现下载进程的动态显示

  在自动生成的Form上,Delphi实现下载进程的动态显示
  jpg” alt=”Delphi实现下载进程的动态显示” />,
在Form上加入一个按钮从TListView中删除,你必须先判断添加进去的Progressbar的内存占用是否已经被释放,如果已经完成,就继续,


  Delphi实现下载进程的动态显示
  许多知名的下载软件中都有下载管理器,用一个TListView来显示下载的进程,你可以清楚的看到已经下载了多少,还有多少内容仍需下载,这样的控件,Delphi自身并未提供,但我们可以在TListView的基础之上加入进度条控件


  
打开Delphi,新建一个工程,在自动生成的Form上,放置一个TListView控件,在它的Columns属性中定义两列,第一列放置数据项


  
在Form上加入一个按钮从TListView中删除,你必须先判断添加进去的Progressbar的内存占用是否已经被释放,如果已经完成,就继续。

删除Item的代码如下:


  ;
var
lv : TListView;
li : TListItem;
i, idx : integer;
pb : TProgressBar;
begin
lv := ListViewEx1;

li :=;

if li <> nil then
begin
idx :=;
;//先释放TProgressBar
;

//把行向上移动
for i := idx to -1 +
begin
li :=;
pb := TProgressBar;
:=- ;
end;
end;
end; //删除ItemButton事件
完成之后,我们来测试一下,我们拖一个TTimer控件,然后在它的OnTime事件中填入下面的代码,模拟一下在一个真实的环境下,这个被我们美化过的TListView控件会有如何精彩表现,也让大伙一起体会一把写程序的小小成就感吧。


  ;
var
idx : integer;
pb: TProgressbar;
lv : TListView;
begin
lv := ListViewEx1;

= 0 then Exit;

//随机生成一个数据项
//根据生成的数据来控制TProgressBar的长度
idx := Random;
pb := TProgressBar;
<

else
:= 0;
end;//Timer事件
—发环境: WindowsXP SP2+Delphi7


  

程序编程