请问：如何在tlistview里增加进度条并进行操作？

Question

我想实现类似于cuteftp中消息队列的效果，增加一个新纪录时就能在相应的字段中增加一个进度条。谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var  r: TRect;  pb: TProgressBar;begin  Listview1.Columns.Add.Width := 100;  Listview1.Columns.Add.Width := 200;  Listview1.ViewStyle         := vsReport;  Listview1.Items.Add.Caption := 'Text';
  r := Listview1.Items[0].DisplayRect(drBounds);  r.Left  := r.Left + Listview1.columns[0].Width;  r.Right := r.Left + Listview1.columns[1].Width;
  pb := TProgressBar.Create(Self);  pb.Parent := Listview1;  pb.BoundsRect := r;  pb.Position := 30;  Listview1.Items[0].Data := pb;end;// Change the ProgressBar Position// ProgressBar Position ?ndern
procedure TForm1.Button2Click(Sender: TObject);var  pb: TProgressBar;begin  pb := TProgressBar(Listview1.Items[0].Data);  pb.StepIt;end;

Answer 2

： lion_lh(xmanx) ( ) is ok;

Answer 3

目前只能给items[0]增加进度，如何能给每个新增加的item一个进度条？