ListView中添加ProgressBar

create a TProgressBar in a TListView column?



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;