Ver Mensaje Individual
  #11  
Antiguo 28-09-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Hay que revisar la ayuda Lucass. Ahí encontrarás todas las propiedades conque cuenta un componente "TOpenDialog", todos sus eventos, métodos, etc. En todo caso, fíjate que no es complicado lo que necesitas. Todo se basa en la propiedad "Files" del "TOpenDialog":

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
begin
  // Creamos una instancia de "TOpenDialog"
  with TOpenDialog.Create(nil) do
  try
    // Permitiremos seleccionar varios archivos
    Options := Options+[ofAllowMultiSelect];
    // "Ejecutamos" (mostramos) el diálogo
    if Execute() then begin
      // Y recorremos su propiedad "Files"...
      for i := 0 to Files.Count-1 do begin
        // Que contiene los archivos elegidos
        ListBox1.Items.Add(Files[i]);
      end;
    end;
  finally
    Free();
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita