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

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

Форум программистов > Delphi: Для новичков > проигрователь

Автор: ruslan21 29.11.2007, 15:35

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

Код


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

Модератор: используйте подсветку кода