Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Directorios con TFileListBox (https://www.clubdelphi.com/foros/showthread.php?t=35174)

Drake 03-09-2006 14:06:11

Directorios con TFileListBox
 
Buenas gente estoy desarrollando un programilla para una pyme y en el programa uso un TListBox en el cual al hacer click en uno de sus objetos este hace que el TFileListBox vaya a un subdirectorio ejemplo:
Código:

if (ListBox1->ItemIndex == 0)
{
FileListBox1->Directory = "Casas\\Las Norias";
}

pero cuando vuelvo a hacer click en el TListBox para acceder a otra carpeta lo que hace el programa es buscar en el directorio que visitamos anteriormente y no en el directorio en el que se le especifica cuando estamos en diseño. En fin lo que necesito es o un TDirectoryBox que solamente muestre las carpetas de un directorio, es decir que solamente trabaje con los subdirectorios de una carpeta y no se pueda salir a por ejemplo "C:" o un TListBox que es lo que uso pero que haga que TListBox retroceda de directorio. Si sabeis como ayudarme postead me urge mucho y gracias por todo.

dec 03-09-2006 16:03:36

Hola,

Creo que podría apañarte el componente "ShellComboBox" que puedes encontrar en la pestaña "Samples" de la paleta de componentes (al menos en Delphi, creo recordar que en C++ Builder también).

Este componente cuenta con la propiedad "Root", en la que puedes especificar una determinada carpeta: el usuario no podrá sino elegir esta y los subdirectorios de esta.

Lo único es que este componente no muestra en el Inspector de Objetos la propiedad "Style", y tal vez no te interese el estilo del componente "por defecto", aunque puede que sí. De todos modos puedes cambiar el estilo de este "ComboBox" programáticamente:

Código Delphi [-]
// Por ejemplo
ShellComboBox1.Style := csExDropDownList;

Drake 03-09-2006 16:15:19

gracias dec siempre me solucionas los problemas, tas hecho un makina


La franja horaria es GMT +2. Ahora son las 20:10:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi