Auf ProgressBars in ListView-Items zugreifen

[Matze]

Hallo allerseits!

Ich erstelle je eine ProgressBar pro ListView-Item mittls folgendem Code:

Delphi-Quellcode:

ProgBar : TProgressBar;

[...]

  for i := 0 to Files.Count - 1 do
  begin
    Item := ListView1.Items.Add;

    [...]

    Item.SubItems.Add(...);
    Item.SubItems.Add(...);

    Rect := Item.DisplayRect(drBounds);
    Rect.Left := ListView1.Columns[0].Width + Form1.ListView1.Columns[1].Width + Form1.ListView1.Columns[2].Width;
    Rect.Right := Rect.Left + ListView1.Columns[3].Width;

    ProgBar := TProgressBar.Create(ListView1);
    ProgBar.Parent := ListView1;
    ProgBar.BoundsRect := Rect;
    ProgBar.Show;
  end;

Ich möchte nun zur Laufzeit die Positionen der ProgressBars verändern. Wie kann ich nun auf die ProgressBars zugreifen?

Dann habe ich mir überlegt, ich könnte ja die Items freigeben und einfach neu erstellen, nur das Problem liegt darin, dass die ProgressBars ja nur freigegeben werden, sobald der Owner (ListView1) freigegeben wird und nicht nur die Items.

Wie kann ich nun auf die einzelnen ProgressBars zugreifen oder die ProgressBars freigeben?

[Luckie]

Pack die Progressbars in ein Array von TProgressbar.

[Matze]

Klappt wunderbar, herzlichen Dank!