Forum: Multimedia
Delphi
by Sharky,
30. Aug 2003
Hai,
warum nicht einfach:
procedure TForm1.Button2Click(Sender: TObject);
begin
Mediaplayer1.FileName := := FileListBox1.FileName;
end;
Forum: Multimedia
Delphi
by Sharky,
30. Aug 2003
Wenn ich das richtig verstehe möchtest Du mit dem Opendialog eine Datei auswählen und danach in einer FilelistBox alle .CDA des Verzeichnisses in einer anzeigen?
procedure TForm1.Button1Click(Sender: TObject);
begin
if (OpenDialog1.Execute) then
begin
FileListBox1.Mask := '*.cda';
FileListBox1.Directory := ExtractFilePath (OpenDialog1.FileName);
end;
Forum: Multimedia
Delphi
by Sharky,
30. Aug 2003
Was genau meinst Du denn mit Inhalt?