Problem mit ListView und eingebauter Progressbar
Hallo,
ich erzeuge in einer ListView (ListView_Dateien) in der 5. Spalte eine Progressbar (siehe Code)
Code:
Jetzt will ich aber, nachdem die Progressbar wieder entfernt wurde (FreeAndNil(PB_Status)), in diese Zelle (Spalte 5, Zeile x), einen Text einfügen. (ListView_Dateien.Items.Item[i].SubItems.Strings[3] := 'hallo'; )
with ListView_Dateien do
begin //Progressbar in der jeweiligen Zeile in der Spalte fünf erzeugen r := Items[i].DisplayRect(drBounds); r.Left := r.Left + Columns[0].Width; r.Left := r.Left + Columns[1].Width; r.Left := r.Left + Columns[2].Width; r.Left := r.Left + Columns[3].Width; r.Right := r.Left + Columns[4].Width; //Progressbar erzeugen PB_Status := TProgressBar.Create(Self); with PB_Status do begin Parent := Listview_Dateien; BoundsRect := r; Position := 0; end; Items[i].Data := PB_Status; //hier wird was mit der Progressbar gemacht... //kurze Wartezeit sleep(1000); //Progressbar freigeben und löschen FreeAndNil(PB_Status); // ListView_Dateien.Items.Item[i].SubItems.Strings[3] := 'hallo'; Wenn ich dort einen Text einfügen will, bekomm ich folgenden Fehler: Zitat:
mfg Helmi |
Re: Problem mit RichEdit und eingebauter Progressbar
Nur als Hinweis, im Titel steht RichEdit, im Topic aber ListView :?
|
Re: Problem mit ListView und eingebauter Progressbar
huch - da hat sich ein Fehler eingeschlichen :-)
es muss natürlich ListView heissen :-) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:25 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz