Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > проигрователь

Автор: ruslan21 1.12.2007, 08:08

здрасте ответьте пожалкйста как сделать проигрователь? на форуме находил самый простой проигрователь ну чтото он у меня не заработал вот код программы

Вот этот код осуществляет проигрывание в Paneli

Код


procedure TForm1.CheckBox1Click(Sender: TObject);
var
Start_From : Longint;
begin
with MediaPlayer1 do
begin
if FileName='' then
Exit;
Start_From:=Position;
Close;
Panel1.Refresh;
if CheckBox1.Checked then
Display:=Panel1
else
Display:=NIL;
Open;
Position:=Start_From;
Play;
CheckBox1.Caption:='Играть в панели';
end;
if checkBox1.Checked then
CheckBox1.Caption:='Играть в отдельном окне';
end;

да незабуть для Events MediaPlayera Display выбери панель и все должно работать

но что то у меня не работает не знаю почему все зделал как там написана
да и ещё я прелогаю фото моей программы что бы точнее понять в чем же проблема

M
Alexeis

Модератор: не забываем про подсветку кода.