如何把Progressbar嵌入listview中,并随着listview上下移动而移动!(200分)

  • 主题发起人 主题发起人 mayi
  • 开始时间 开始时间
M

mayi

Unregistered / Unconfirmed
GUEST, unregistred user!
如题,如何把Progressbar嵌入listview中,并随着listview上下移动而移动,就像cuteftp
上传进度过程一样,200分!
 
在Form1上放置ProgressBar1,ListView1,Button1各一个,部分代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
AddLVItem('aa', 'bb', '', ListView1);
ProgressBar1.Parent := ListView1; //关键在此
ProgressBar1.Top := 20; //位置(如果有多个则最好用变量)
ProgressBar1.Left := 150;
end;

procedure TForm1.AddLVItem(sCap, str1, str2: string; aLV: TListView);
var
NewItem: TListItem;
begin
NewItem := aLV.Items.Add;
with NewItem do
begin
Caption := sCap;
SubItems.Add(str1);
SubItems.Add(str2);
end;
end;
 
wind2000兄的代码可以把progressbar放在listview里,但如果多增加几个后,不能随着
listview的上下移动而移动,progressbar的位置始终不变,不管listview的item如何上
下变动,我的意思是,把progressbar嵌入listview的每一个item里,并随着item的移动
而移动。
 
我已经解决了这个问题,请班主结束这个贴子。
 
ft,你自己可以结束呀

不会是启名星那个mayi吧
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部