Directorios con TFileListBox

[Drake]

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:

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]

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]

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