Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32)
Home
Download
Documentos
Links
Historial
Correo

EditOpenDialog


Este componente, descendiente de TEditButton, es un control de edición para ficheros y directorios, al pulsar el botón que contiene este componente, se abrirá una caja de diálogo para seleccionar un fichero o un directorio, dependiendo de una de las propiedades del componente.

Propiedades:

TypeDialog : Tipo de caja de diálogo a abrir cuando se pulsa el botón del control (teoFile,teoDir).Figuras anteriores.
ButtonType : Imágenes predefinidas.
TextButton : Texto del botón del control.
ImageButton : Imagen del botón del control.
WidthButton : Ancho del botón del control en % del ancho de control (entre 1 y 74%).
FlatButton : Botón plano (True) o normal (False).
TransparentButton : Botón transparente. Sólo utilizable en FlatButton:=True;
FontButton : Fuente del texto del botón del control.
Side : Lado al que aparece el botón dentro del control : Derecha (sbRight) o Izquierda (sbLeft).
Alignment : Alineación del texto dentro del control. (taLeftJustify, taCenter, taRightJustify).
Text : Texto del control. Esta propiedad servirá tanto como directorio inicial de las cajas de diálogo cuando se pulse en botón como el resultado de la selección, después de haber seleccionado un fichero o directorio a través de las cajas de diálogo.
ShowCmd : Forma de apertura del documento. Los tipos son los siguientes :

scHide Cierra la ventana y activa otra
scMaximize Maximiza la ventana
scMinimize Minimiza la ventana
scRestore Activa y muestra la ventana
scShow Activa la ventana
scShowDefault  
scShowMaximized Activa y muestra la ventana maximizada
scShowMinimized Activa la ventana y la minimiza
scShowMinNoActive Muestra la ventana minimizada pero no activa
scShowNa Muestra la ventana en el estado en que se encuentre pero no la activa
scShowNoActivate  
scShowNormal Activa y muestra la ventana

FileDialog : Esta propiedad se divide en otras que serán tenidas en cuenta cuando el tipo de caja de diálogo (TypeDialog) sea teoFile.
DefaultExt : Estensión de los ficheros por defecto.
Filter : Filtro de tipo de archivos. Por ejemplo 'Todos (*.*)|*.*|Pascal (*.pas)|*.pas'.
FilterIndex : Entero que indica que filtro utiliza por defecto. Por ejamplo, para el caso anterior si asignamos 2 entonces el filtro será Pascal (*.pas).
Options : Opciones de la caja de diálogo. Mirar la propiedad del mismo nombre del componente TOpenDialog.
OptionsEx : Opciones extendidad de la caja de diálogo. Mirar la propiedad del mismo nombre del componente TOpenDialog.
Filename : Nombre del último fichero seleccionado o nombre del fichero que queremos que aparezca en la caja de diáloco en el cajetín de 'Nombre'.

DirectoryDialog : Esta propiedad se divide en otras que serán tenidas en cuenta cuando el tipo de caja de diálogo (TypeDialog) sea teoDirectory.

Title : Texto que aparecerá en la ventana del cuadro de diálogo de selección de un directorio
RootFolder : Carpeta raiz desde la que cuelgan las distintas carpetas a las que se puede acceder. Los valores que puede contener son los siguientes

rtStartMenu Carpeta Menú de inicio
rtPrograms Carpeta Programas
rtDrives miPC
rtDesktopDir Carpeta Escritorio
rtPersonal Mis documentos
rtAppData Application Data
rtFavorites Favoritos
rtTemplates Plantillas
rtDesktop Escritorio
rtControls Panel de Control
rtSendTo SendTo

Métodos :

GetDir : Devuelve el directorio del fichero/directorio contenido en la propiedad Text.
GetExt: Devuelve el extension (con el punto) del fichero contenido en la propiedad Text.
GetFile: Devuelve nombre del fichero con la extension del fichero contenido en la propiedad Text.
GetDrive: Devuelve la unidad (drive) del fichero/directorio contenido en la propiedad Text.
ShortPathName: Devuelve el nombre corto (Nombre del DOS) del fichero/directorio contenido en la propiedad Text.
GetExec: Devuelve el programa asociado al fichero/directorio contenido en la propiedad Text.
Exec: Ejecuta el programa asociado al fichero/directorio contenido en la propiedad Text. Se le pueden pasar dos parámetros : (1)Tipo de operación :'open' (defecto), 'print', 'explore' y (2) otros parámetros. La ventana se abre según la propiedad ShowCmd del componente.
Execute: Abre la caja de diálogo de apertura de fichero. Mismo efecto que la pulsación del botón del componente.

Eventos :

OnResult : Evento que se produce después de cerrarse las cajas de diálogo de selección de fichero o directorio. Los parámetros que se recogen son Sender que es el propio control y Result que será True si para cerrar la caja de diálogo se pulsó la tecla 'Aceptar' o False si se pulsó la tecla 'Cancelar' de la caja de diálogo.