Klapt wunderbar Lannes, vielen herzlichen Dank an dir.
Jetzt noch die Frage wie mach ich das die Listitems die deleted wurden wieder in der Listview sichtbar sind?
Delphi-Quellcode:
procedure THaupt.MusikClick(Sender: TObject);
var z : Integer;
begin
if Musik.Checked = false then
begin
for z := ListView.Items.Count-1 downto 0 do
if ListView.Items[z].SubItems[1] = 'Musik - Album' then
ListView.Items[z].Delete;
end
else
...... <---- wieder sichtbar machen.
Auch die anderen Danke fuer eure Antworten.
Gruss Lucius..