Tema: Reproductor
Ver Mensaje Individual
  #5  
Antiguo 14-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.109
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Luego de mostrarse el "TOpenDialog" y de que el usuario eliga archivos y pulse el botón "Aceptar", cuentas con la propiedad "Files" del "TOpenDialog", que es de tipo "TStrings", me parece, y contendrá todas las rutas de todos los archivos que eligiera el usuario en el "TOpenDialog".

A partir de ahí... puedes cargar el "TListBox" de este modo, por ejemplo:

Código Delphi [-]
ListBox.AddItems(Files);

Eso si no estoy equivocado... digo todo esto de memoria, la verdad. O sea, más o menos algo así:

Código Delphi [-]
var
  dlg: TOpenDialog;
begin
  dlg := TOpenDialog.Create(Self);
  if dlg.Execute then
  begin
    ListBox1.AddItems(dlg.Files);
  end;
  dlg.Free;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita