Wie kann ich alle Dateien im ShellListView markieren, aber n

stefanstp · Beiträge: 106

Mit

Quelltext

1:
2:
3:
4:
5:
6:
7:

var
x:integer;
begin
for x:=0 to ShellListView1.Items.Count-1 do
begin
ShellListView1.Items.Item[x].Selected:=true;
end;

kann ich alles markieren. Aber da nimmt er auch die Ordner mit. Wie kann ich nur Dateien markieren?

Wer kann helfen? Besten Dank im Voraus!!!

STEFAN

FriFra · Verfasst: Mi 23.10.02 22:49

So gehts:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var 
x:integer;
begin
  for x := 0 to ShellListView1.Items.Count - 1 do
  begin
    if FileExists(ShellListView1.Folders[x].PathName) then
      ShellListView1.Items[x].Selected := True;
  end;
end;

stefanstp · Beiträge: 106

Werde ich doch gleich mal heute Abend ausprobieren! Danke für die schnelle Antwort!!!

STEFAN

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme