Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

TProgressBar в колонке TListView

01.01.2007
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 andern
 
procedure TForm1
.Button2Click(Sender: TObject);
var
  pb
: TProgressBar;
begin
  pb
:= TProgressBar(Listview1.Items[0].Data);
  pb
.StepIt;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0