Foros Club Delphi - Filtro para TShellListView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Filtro para TShellListView (https://www.clubdelphi.com/foros/showthread.php?t=11105)

Filtro para TShellListView

Hola:

Tengo un inconveniente con el objeto TShellListView. Éste presenta todo tipo de archivos en su lista, pero ¿cómo hago para que sólo muestre los archivos de cierta extensión?

Gracias.

Puedes usar el evento OnAddFolder del ShellListView. Este evento se genera cada vez que la componente va a agregar un elemento (folder o archivo) y tú decides si mostrarlo o no con el parámetro CanAdd. El parámetro AFolder contiene información acerca del elemento (folder o archivo) que se va a agregar.

Un pequeño ejemplo para mostrar sólo archivos .pas:

Código Delphi [-]procedure TForm1.ShellListViewAddFolder(
  Sender: TObject;
  AFolder: TShellFolder; var CanAdd: Boolean
);
begin
  CanAdd := AFolder.IsFolder or (ExtractFileExt(AFolder.DisplayName) = '.pas');
end;

// Saludos