Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   poner el foco dentro del opendialog (https://www.clubdelphi.com/foros/showthread.php?t=27324)

Velia 17-11-2005 15:23:32

poner el foco dentro del opendialog
 
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 17-11-2005 15:40:52

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 17-11-2005 15:51:15

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 17-11-2005 16:36:07

Gracias
 
Una vez mas gracias por la ayuda
Saludos
Velia

jachguate 17-11-2005 17:00:34

Cita:

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 17-11-2005 17:21:30

Cita:

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....:)


La franja horaria es GMT +2. Ahora son las 05:21:35.

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