poner el foco dentro del opendialog

[Velia]

Hoola
Tengo una aplicación que me abre un archivo específico con la siguiente instrucción

Código Delphi [-]
   documento.text:= prueba.htm
   OpenDialog1.FileName:= documento.Text;
    if OpenDialog1.Execute then
         OpenDialog1.FileName;

MI necesidad es que al abrir el opendialog solo me muestre el archivo que le especifico con la instrucción "OpenDialog1.FileName:= dbCod_ordenanza.Text;" dentro de un conjunto de archivos con la misma extención. O que me ponga el foco dentro del directorio en el Dialogo abierto cosa de cerciorarme que exista

Saludos a todos

[marcoszorrilla]

Adapta este ejemplo:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 
  opendialog1.InitialDir:='E:\Seguro';
  OpenDialog1.Filter := 'Mis_Zips (*.zip)|AniPrg.zip';
 
  OpenDialog1.Execute;
 
 end;

Un Saludo.

[lucasarts_18]

Hola:

Adaptando el código de marcoszorrilla, podemos comprobar que ese fichero exista realmente, que es otro asunto que pide velia:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 
   archivo : String;
 begin
   archivo := 'acceso.txt';
   opendialog1.FileName := archivo;
   opendialog1.Filter := 'Mis_Zips (*.txt)|Acc.txt';
 
   if opendialog1.Execute then
     if not fileexists('acc.txt') then
       showmessage('no existe');
 end;

Espero que te sirva

[Velia]

Una vez mas gracias por la ayuda
Saludos
Velia

[jachguate]

Empezado por lucasarts_18

Adaptando el código de marcoszorrilla, podemos comprobar que ese fichero exista realmente, que es otro asunto que pide velia:

En lugar de esto, yo aconsejaría activar la opción "ofFileMustExist" de la Options del OpenDialog. De esa forma el usuario se ve obligado a seleccionar un nombre de archivo que exista dentro de este.

Hasta luego.

[lucasarts_18]

Empezado por jachguate

En lugar de esto, yo aconsejaría activar la opción "ofFileMustExist" de la Options del OpenDialog. De esa forma el usuario se ve obligado a seleccionar un nombre de archivo que exista dentro de este.

Interesante....