У меня следующая проблема: я решил всё-таки использовать для отображения видеороликов со звуком компонент TMediaPlayer. Отображаю файлы ".wmv".
Изображение должно быть растянуто на весь экран и ролики должны сменяться через определённое время. Я выставил следующие свойства:
Form1.WindowState:=wsMaximized;
Panel1.Align:=alClient;
MediaPlayer1.Display:=Panel1;
Для события OnResize компонента Panel1 написал обработчик:
MediaPlayer1.DisplayRect:=Panel1.ClientRect;

Для смены ролика я ставлю переменную-счётчик (counter) и таймер и пишу обработчик события OnTimer:

M Alexeis

Используйте подсветку кода

Смена роликов происходит нормально, но проблема в том, что первый ролик растянут на весь экран, а у второго видео остается маленьким: если, например, у него размер 420х240,то так и отображается в левом верхнем углу, а справа и внизу чёрные полосы.
Подскажите, пожалуйста, как сделать так, чтобы все сменяющие друг друга ролики отображались на весь экран (или может быть я как-то не так реализую их смену?)

Это сообщение отредактировал(а) Alexeis - 30.6.2007, 09:00

  Думаю каждый раз нужно указывать 
   MediaPlayer1.DisplayRect:=Panel1.ClientRect; , наверняка это свойство сбрасывается.

Всё равно второй ролик не растягивается на весь экран, даже после исправления кода:
if counter=N then begin
MediaPlayer1.Stop;
MediaPlayer1.Close;
MediaPlayer1.FileName:='video2.wmv';
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
counter:=counter+1;

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