Dialogo para seleccionar archivo o carpeta...
 

Hola,
Me gustaría saber como puedo incluir o crear un cuadro de dialogo para seleccionar una carpeta o un archivo especifico?? algo asi como se muestra en la siguiente imagen:

http://images.hack.free.fr/images/n19anwoc.jpg

Es para poner un dialogo en donde se deba escoger la ruta en donde se encuentra la base de datos (carpeta donde se creará) o bien la ruta incluyendo el archivo (en caso de que ya exista).

Mi duda es (por lo poco que se) existe algun componente para esto o se hace de manera simple??

Alguien podría ayudarme o mejor dicho indicarme como poder realizarlo??

Estare atento.

Saludos

Hola Greco, Para seleccionar un archivo especifico, puedes usar el componente OpenDialog en la solapa Dialogs, ahora para que sea como la imagen debes descargarte los componente JVCL y buscas el componente JvSelectDirectory en la solapa JvDialogs, espero que esto te ayude. cualquier duda nos comentas.

Saludos.

Una versión sencilla sin instalar componentes adicionales es usando: la función SelectDirectory que se encuentra en la unit FileCtrl del Delphi.

Aqui un ejemplo de uso:

Código Delphi [-]
var
  sDirectory : String;

begin
  if SelectDirectory('Selecciona directorio:', '', sDirectory) then
    ShowMessage(sDirectory);

Saludos.

Muchas gracias a enecumene y xEsk por su ayuda, en este momento no estoy en el pc donde tengo instalado delphi asi que mañana por la mañana voy a realizar las pruebas con resecto a la ayuda que me han dado.

Gracias por todo, cualquier uda o problema seguiré con el hilo.

Saludos.

Hola, aquí estoy otra vez para consultar algunas dudas respecto a lo mismo.

Ya probe el código que me facilitó xEsk y me funcionó, tambien me baje los componentes JVCL y proble lo que me dijo enecumene y tambien funcionó, ahora, cambié el JvSelectDirectory por el JvBrowseForFolderDialog que encontre que trae mas opciones, ahora mi duda es... que diferencia tienen estos dos componentes??? y la otra duda que tengo, como recupero la ruta que seleccioné en dicho dialogo?? por ejemplo para mostrarla en un edit.

Saludos.


--------------------------------------------------------------------
PD. hace tiempo que habia oido hablar de los componentes JVCL pero nunca habia tenido la oportunidad de instalarlo y ahora he visto la gran cantidad de cosas que trae :D

Hola Intenta esto:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text:=OpenDialog1.FileName;
end;

Saludos.

En base a tu código probé lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  if JvBrowseForFolderDialog2.Execute then
  begin
    Edit1.Text:=JvBrowseForFolderDialog2.Directory;
  end;
end;

y me funcionó a la perfección.

Gracias por al ayuda.

Saludos