Tema: Dialogs
Ver Mensaje Individual
  #2  
Antiguo 04-06-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
En realidad su uso es sencillo... por ejemplo, un OpenDialog creado en tiempo de ejecución:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  AFileName: string;

begin
  with TOpenDialog.Create(nil) do
    try
      // Que filtros queremos usar
      Filter := 'Archivos de texto|*.txt|Secuencias SQL|*.sql';
      // El título de la ventana
      Title := 'Abrir archivo';
      // La extención predeterminada del archivo
      DefaultExt := '.txt';
      // El directorio que se va a mostrar cuando invoques al diálogo
      InitialDir := 'C:\Archivos de programa';
      // Llamamos al diálogo y obtenemos el nombre del archivo seleccionado:
      if Execute then
      begin
        AFileName := FileName
        // Hago lo que quiero con el nombre del archivo:
        if FileExists(AFileName) then
          with TStringList.Create do
            try
              LoadFromFile(AFileName)
            finally
              Free
            end
      end
    finally
      Free
    end
end;

Ya en tiempo de diseño, puedes establecer algunas otras propiedades más...

Para más información, consulta la ayuda de Delphi...



Saludos...
Responder Con Cita