ProgressBar in ListView einbinden

[CoRe.eXtreem]

Delphi-Quellcode:

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;





{ProgressBar Position ändern}

procedure TForm1.Button2Click(Sender: TObject);
var
  pb: TProgressBar;
begin
  pb := TProgressBar(Listview1.Items[0].Data);
  pb.StepIt;
end;

Gruß Core