Вывод видео в панель

[Aleksey1989]

Почему, указав у компонента MediaPlayer в свойстве display Panel2, открываемый видеофайл открывается в отдельном окне?

[Mad_Cat]

Почему, указав у компонента MediaPlayer в свойстве display Panel2, открываемый видеофайл открывается в отдельном окне?

хороший вопрос! а проект показать?

[Aleksey1989]

Сообщение от Mad_Cat

хороший вопрос! а проект показать?

procedure TForm1.EnableBattons(State: Boolean);
begin
 PlayButton.Enabled:=state;
 StopButton.Enabled:=state;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 EnableBattons(false);
  if not openDialog1.Execute then exit;
  try
   MediaPlayer1.FileName:=OpenDialog1.FileName;
   MediaPlayer1.Open;
  except
   Application.MessageBox('Ошибка открытия файла','Error!!!');
   exit;
  end;
 EnableBattons(true);
end;

procedure TForm1.PlayButtonClick(Sender: TObject);
begin
 MediaPlayer1.Play;
end;

procedure TForm1.StopButtonClick(Sender: TObject);
begin
 MediaPlayer1.Stop;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   EnableBattons(false);
end;

[Aleksey1989]

Всё, сейчас всё стало работать как надо. Я просто удалил старый компонент MediaPlayer и добавил новый. А почему в первый раз выводилось в отдельное окно - понять не могу.

П.С. В приведённом выше проекте я забыл изменить свойство Display.

[Mad_Cat]

В приведённом выше проекте я забыл изменить свойство Display.

точно
Выставил Display = Panel2 и все работает!

[Aleksey1989]

Сообщение от Mad_Cat

точно
Выставил Display = Panel2 и все работает!

А как сделать так, чтобы видео выводилось на всю панель? Вернее куда стоит поместить следующий код:

 MediaPlayer1.DisplayRect:=Rect(0,0,Panel2.Width,Panel2.Height);

И как сделать так, чтобы при изменении размеров окна видео не начиналось с начала?

[Mad_Cat]

procedure TForm1.PlayButtonClick(Sender: TObject);
begin
 MediaPlayer1.DisplayRect:=Rect(0,0,Panel2.Width,Panel2.Height);
 MediaPlayer1.Play;

end;

И как сделать так, чтобы при изменении размеров окна видео не начиналось с начала?

оно и так не начинается

[Aleksey1989]

Спасибо. А как сделать так, чтобы при изменении размеров окна видео не начиналось с начала?