Форум: "Система";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизНарод подскажите как мне быть ? Найти похожие ветки
← →
aus (2001-09-24 13:32) [3]На примере - это значит компонент написать за тебя? Извини...
По первому вопросу посмотри все-же пример.
По второму:
ListBox.Items.Assign(FileListBox.Files)
OnNotify - смотри в справке, если AutoOpen = true, будет проигрывать файл после присвоения нового значения свойству TMediaPlayer.Filename.
Procedure Form1.MediaPlayer1OnNotify(sender: TObject);
begin
with MediaPlayer1 do begin
if Mode = mpStopped then
FileName := ListBox1.Items[i];
Notify := true;
end;
end;
Примерно так.
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c