Hab eine Möglichkeit gefunden, wie es funktioniert:
Code:
procedure TFormShredExplor.BitBtnMarkAllClick(Sender: TObject);
var i : Integer;
begin
for i := 0 to ListView.Items.Count - 1 do
begin
ListView.Items[i].Selected:=true;
end;
end;
Jedenfalls:
Danke für Eure Bemühungen und Tipps.
Gruß
Thomas
