abrir: por defecto
 

Hola a todos
estoy utilizando un OpenPictureDialog y quiero que cuando se active inicie la búsqueda por una ruta que yo indique es decir:

Código Delphi [-]
procedure button1.click
begin
if openpicturedialog. execute then
edit1.text:=openpicturedialog1.FileName;
fin

digamos la cadena insertada en el edit será:
E:\Administrador\Delphi\imagen1

y quiero que cuando se abra la ventana de dialogo ' abrir '
en el editor despegable ' buscar en:' empieza en la carpeta:
E:\Administrador\Delphi

y así solo tendría que dar click en imagen1, imagen2 ó imagen3 etc. etc.

Espero haberme explicado bien, gracias de ante mano por ayuda y tiempo.:D

Hola Max_E., tienes que utilizar la propiedad InitialDir de tu OpenPictureDialog, ahí colocas la ruta de la carpeta con la que quieras que se abra.

InitialDir -> E:\Administrador\Delphi

Saluditos

gracias
 

hola denuevo :)

me funciono bien
muchas gracias caro por tu ayuda ;)

saludos y un abrazo

Hola a todos, continuo este hilo para no crear un nuevo.

He asignado una carpeta por defecto a InitialDir pero al abrir el dialogo me aparece la carpeta por defecto Mis documentos

os paso el código a ver si podéis indicarme cual es el error, porque yo no lo veo.

Código Delphi [-]
// asigno la direccion inicial (direccion del ejecutable + las carpetas correspondientes)

opendialog2.InitialDir := ExtractFilePath(Application.ExeName)+'Docs\Plantillas\Deuda\';  

 if opendialog2.Execute then
  begin
        // ...
  end;

La asignación es correcta y la carpeta existe

Saludos.

Hola fmatias, no hay ningún error en tu codigo, yo lo hago de esa forma y me lo direcciona bien, revisa que la ruta que le estas pasando existe, porque solo cuando no encuentra dicha ruta, te lo direcciona a la carpeta por defecto "Mis documentos".

Saluditos

por defecto a InitialDir
 

Hola fmatias

me parece que el problema esta con el ultimo slash '' \ '' no deveria ir, intentalo....

Código Delphi [-]
 
ubicacion:=ExtractFilePath(Application.ExeName)+'imagenes';
// ubicacion es la carpeta con nombre imagen dentro de la carpeta donde esta la aplicacion
 
 
openpicturedialog1.InitialDir:=ubicacion;

suerte :)

Para eso estan las funciones IncludeTrailingPathDelimiter y ExcludeTrailingPathDelimiter..

Por otra parte si quieres inicializar el cuadro de texto a un valor predeterminado tienes q asignar un valor a la propiedad FileName..

Hola a todos, el ultimo slash no es el problema, con o sin ese slash, debería direccionarte a la ruta que le estas indicando, insisto si la ruta que le pasas no esta bien te lo direcciona a la carpeta por defecto "Mis Documentos".

Saluditos

Activo de nuevo este hilo porque estoy en la misma situación que Caro y quiero saber si alguien solucionó el problema.

Antes de crear y ejecutar TSaveDialog, debo especificar la propiedad InitialDir (es para QuickReport 4)

He probado de las siguientes maneras:

Código Delphi [-]
SetCurrentDir('C:\Esta es la carpeta del usuario') 
SetCurrentDir('C:\Esta es la carpeta del usuario\')

No funcionan. El directorio/carpeta sigue siendo "Mis Documentos".

Gracias por su ayuda


Salud.

Problema solucionado.

En la Form principal:

Código Delphi [-]
ForceCurrentDirectory:= True;

Antes de SaveDialog

Código Delphi [-]
SetCurrentDir:= 'C:\xxx\yyy';

Salud.