ProgressBar in ListView einbinden

[Plague]

Hallo,

ist es möglich eine ProgressBar in eine spezielle Spalte einer Listview Komponente einzubinden? Wenn ja, wie mache ich das?

Danke
Thomas :coder:

[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

[Plague]

Zuerst einmal Danke! Vom Prinzip her klappt es so wie ich es wollte.
Ein Fehler existiert aber immer noch. Und zwar:
Wenn ich die Spaltenlänge veränder, passt sich die Position der Progressbar nicht der des Spaltenanfangs an.
Wie kann ich das noch machen? :?:

[Plague]

Und noch ein Fehler (Sorry) ;)
Bei einem zweiten Klick auf Button2 wird die Listview Komponente noch mal verändert und so unbrauchbar. Nebenbei wird zwar eine neue Spalte mit Text erstellt, jedoch bleibt die ProgressBar an der gleichen Stelle...

[MrKnogge]

Das Thema ist zwar schon etwas "verstaubt", aber der vollständighalber zwei Links zu den Schweizern:
...herausfinden, wenn sich die Größe einer TListView Spalte ändert?
...die Größenänderung von Spalten in einem ListView unterbinden?

Gruß