Página 1 de 1
COMO hacer un cGetfile32
Publicado: Sab Dic 11, 2004 7:48 pm
por Francisco
Como hacer un cGetfile32 en xailer ? Revise el funciones.txt pero o se me
paso o no vi nada parecido.
Atentamente : Francisco Sanchez GERENTE GRUPO ST
COMO hacer un cGetfile32
Publicado: Sab Dic 11, 2004 7:57 pm
por jfgimenez
Paco,
> Como hacer un cGetfile32 en xailer ? Revise el funciones.txt pero o se me
> paso o no vi nada parecido.
Usa el componente TFileOpenDlg. Una vez que lo pongas en el formulario y
rellenes las propiedades que necesites, lo llamas desde código con :Run() o
:Execute(). O si lo prefieres, lo puedes instanciar directamente:
WITH OBJECT TFileOpenDlg():New( Application:oMainForm )
:cFilter := "Ficheros xBase (*.prg, *.ch)|*.prg;*.ch|Todos los
ficheros (*.*)|*.*"
If :Execute()
MsgInfo( "Estas abriendo: " + :cFullFileName )
Endif
END
O, incluso, usar la función auxiliar FileOpenDlg( oParent, cTitle,
cInitialDir, cFilter, nFilter ):
MsgInfo( "Estas abriendo: + FileOpenDlg( Application:oMainForm,,, "Todos los
ficheros (*.*)|*.*" ) )
En este último caso, si el usuario no selecciona ningún fichero, te devuelve
una cadena vacía ""
Un saludo,
José F. Giménez
COMO hacer un cGetfile32
Publicado: Sab Dic 11, 2004 8:04 pm
por Francisco
vale esta claro pero para seleccionar una carpeta o Path hago igual ?
ATentamente :Francisco Sanchez GERENTE GRUPO ST
>
COMO hacer un cGetfile32
Publicado: Sab Dic 11, 2004 8:11 pm
por jfgimenez
Paco,
> vale esta claro pero para seleccionar una carpeta o Path hago igual ?
Usa el componente TBrowseForFolder. Puedes revisar la documentación en
docbrowseforfolder.txt
--
Un saludo,
José F. Giménez