Discussion :

[Phébus]

Bonjour,

je possède delphi 7 et j'aimerais pouvoir appliquer un filtre (ex: *.txt) à un TShellListView. Comment dois-je m'y prendre.

Merci d'avance

[cpdump]

Il faut utiliser l'event OnAddFolder

cf. exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TMainForm.ShellListViewAddFolder(Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean);
begin
    if Self.CheckBoxFilterExp.Checked then
    	canAdd := AFolder.IsFolder or (AnsiIndexText(ExtractFileExt(AFolder.PathName), ['.wmv', '.asf', '.wma']) >= 0)
	else
	    canAdd := true;
end;

[Phébus]

Merci beaucoup c'est exactement ce qu'il me faut.