Tema: Filtro para TShellListView
Ver Mensaje Individual
  #2  
Antiguo 06-06-2004
Avatar de roman
roman roman is offline
Moderador
  
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita