Скачать: CL | DM;

Не могу разобраться с кодом.Помогите ПОЖАЛУЙСТА!!!   Найти похожие ветки 

← →
Dima   (2008-03-17 20:00) [0]

При переходе воспр. с клипа в mp3 не закрывает panel.При переходе воспроизведения с mp3 на клип-нормально.Из-за этого
бага потерял уже кучу времени,а понять в чем проблема не могу.

Задача:При воспр. музыки-панель не видно,а при воспр. видео-
отображается на весь экран и при окончании композиции панель
опять исчезает. Код привожу ниже:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   form1.Panel1.Visible:=false;
      form1.Memo1.Lines.Delete(0);
      form1.ListBox3.Items.Delete(0);
   if form1.ListBox3.Items.Count>0 then
    begin
       form1.Panel1.Width:=1024;
        form1.Panel1.Height:=768;
          MediaPlayer1.FileName:=memo1.Lines.Strings[0];
          Mediaplayer1.Open;
          form1.MediaPlayer1.Display:=form1.Panel1;
          mediaplayer1.DisplayRect:=rect(0,0,1024,768);
          mediaplayer1.Play;
    end;
end;

Кто может ПОМОГИТЕ ПОЖАЛУЙСТА,я ВАС ОЧЕНЬ прошу!!!!!!!!!

---

← →
Семеныч   (2008-03-17 20:37) [1]

mediaplayer1.close?

---

← →
Dima   (2008-03-17 20:46) [2]

> mediaplayer1.close?


Пробовал не помогает.Спасибо за совет.

---

← →
ЦУП ©   (2008-03-18 13:07) [3]

а почему form1.Panel1.Visible:= только в одном месте?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c