Como filtrar archivos en un Filelistbox

[jachguate]

Empezado por lucasarts_18

Hola:

No tenía idea que presionando F1 sobre el objeto seleccionado hacia un acceso directo a la ayuda...yo utilizaba el camino largo.

Gracias....

Saludos.
Aarón.

Bueno, esto va mas allá, cuando tenes seleccionada una propiedad en el inspector de objetos, F1 te lleva directamente a la ayuda de esa propiedad.

Igualmente el F1 tiene buenas capacidades cuando estas en el editor de código, tratando de encontrar las clases/propiedades de los objetos a los que se hace referencia donde está el cursor.

Para mas ayuda, lee la ayuda de la ayuda

Hasta luego.

[Blaster]

Mira, los FileListBox se pueden filtrar inclusive mientras los usas. Por ejemplo:

Tienes un FileListBox de nombre: FileListBoxSimulacionImagenes
Tienes un Edit de nombre: edtFiltroBibliotecaInternaSimulacionImagenes

Pon esto en el evento OnChange del Edit:

Código Delphi [-]
procedure TfrmPrincipal.edtFiltroBibliotecaInternaSimulacionImagenesChange(
  Sender: TObject);
begin
  //Valido para que el primer caracter no sea un punto y para que el primer caracter no sea un espacio
  if (   (AnsiLeftStr(Trim(edtFiltroBibliotecaInternaSimulacionImagenes.Text), 1) = '.'   ) or (AnsiLeftStr(edtFiltroBibliotecaInternaSimulacionImagenes.Text, 1) = ' ')   )
    then
      begin
        //Limpio el edit
        edtFiltroBibliotecaInternaSimulacionImagenes.Clear;
      end;
          
  //Aqui modifico el filter del FileListBox
  FileListBoxSimulacionImagenes.Mask:= edtFiltroBibliotecaInternaSimulacionImagenes.Text + '*.sim';

  //Actualizo el FileListBox
  FileListBoxSimulacionImagenes.Update;
end;

Por último, para que no se tecleen caracteres no válidos en el filtro (el Edit) debes poner esto en el evento OnKeyPress del Edit:

Código Delphi [-]
procedure TfrmPrincipal.edtFiltroBibliotecaInternaSimulacionImagenesKeyPress(Sender: TObject; var Key: Char);
begin
  //Valido para que el primer caracter no sea un punto
  if (   Trim(AnsiLeftStr(edtFiltroBibliotecaInternaSimulacionImagenes.Text, 1)) = '.')
    then
      begin
        //Limpio el edit
        edtFiltroBibliotecaInternaSimulacionImagenes.Clear;
      end;

  //Valido para caracteres no validos
  if (Key in['/', '\', ':', '?', '¿', '*', '"', '<', '>'])
    then
      begin
        Abort;
      end;
end;

Al final tienes un FileListBox, en el cual se mostrarán los archivos de extensión *.sim, pero que además empiezen con lo que escribas en el Edit (así los encuentras más rápido).

Espero te sirva de algo.
Bye.