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

← →
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?

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

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

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