Fragen zu TShellListView und TShellTreeView

[litsa]

Zitat:

ich möchte das nur dateien eines bestimmten dateityps z.b. mp3 markiert sind, keine anderen

da du anfangs was von drag&drop erwähnt hast, möchtest du die markierten Dateien verschieben? Wenn ja wohin? Das Markieren hast du ja hinbekommen.

[Moyyer]

eigentlich wollte ich in meinem programm drag&drop aktivieren, was mit den alten komponenten (nicht) schwer geht.

aber natürlich haben die komponenten noch andere funktionen bzw. werden von anderen komponenten benutzt, so gibt es z.b. einen button, der alle mp3s des aktuellen ordners markiert.

Drag&drop geht nun. jetzt müssen die anderen prozeduren angepasst werden. nur leider war das schwieriger als zunächst gedacht.

Zitat:

Das Markieren hast du ja hinbekommen.

Theoretisch müsste die Prozedure funktionieren, aber wie schon erwähnt kommen häufig fehlermeldungen (speicheradressen)
was für den benutzer nicht zumutbar ist. --> mp3's markieren funktioniert nicht!!!!

[Moyyer]

hast du vllt eine ander lösung, wie ich alle mp3s markieren kann?

[litsa]

Hallo
versuch's mal hiermit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s: TstringList;
begin
s := TStringList.Create;
vli.SelectAll(true);
s.AddStrings(vli.SelectedPaths);
try
for i := 0 to vli.SelectedCount-1 do
if ExtractFileExt(s.Strings[i]) <> '.mp3' then  begin
vli.Selected[vli.FindNode(s.Strings[i])] := false;
vli.Refresh;
end;
finally
s.free;
end;
end;