Cita:
Empezado por dec
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;
|
eso me parece bien excusame que pregunte esto antes de hacer lo es que programo en casa y alla no tengo internet uso el internet del trabajo para hacer las concultas
bueno eso no biene al caso lo mio es lo siguiente uso el sifuiente codigo para abrir elarchivo
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Opendialog1.Execute = True then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
Mediaplayer1.DisplayRect := rect(0,0,OleContainer1.Width,OleContainer1.Height);
MEdiaPlayer1.Play;
StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
Label3.Visible := True;
Label4.Visible := True;
end;
end;
lo que me indicas hacer es lo siguiente
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);var dlg: opendialog1;begin
if Opendialog1.Execute = True then begin listbox1.additems(dlg.files)
MediaPlayer1.FileName := listbox1.item.string;
MediaPlayer1.Open;
Mediaplayer1.DisplayRect := rect(0,0,OleContainer1.Width,OleContainer1.Height);
MEdiaPlayer1.Play;
StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
Label3.Visible := True;
Label4.Visible := True;
end;
end;
esalgo asi verdad