SelectAll

[schitho]

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