Помогите с написанием программы-медиаплеера на Delphi (Вывод видео на форму)

[ЕКА]

Пожалуйста, помогите ато по ООП к экзаменам не допустят.

собственно что мне нужно:

Вывод видео на TForm1, но не на всю форму, а чтобы внизу осталоь место для кнопок, желательно с возможностью включения полноэкранного режима (об кнопках и прочих компонентах я сам позабочусь чтобы вас сильно не утруждать).
Если сложно сделать вышеописанное, тогда использовать 2 Unit модуля(TForm1 для кнопок и прочего, TForm2 - "экран")

[Chudo4258]

Такое надо было???
Только в проге введите свой путь к файлу
И эта прога показывает видео без звука.

[ЕКА]

Нужно с использованием компонента MediaPlayer.

Заранее приношу извинения если тема повторяющаяся

[uberchel]

Очень просто:

Я поставил TPanel, она для того,что-бы видео не закрывалось
кнопками с низу!

//Во весь экран при двойном нажатии на TPanel.
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
if BorderStyle = bsNone
then begin
Form1.WindowState:= wsNormal;
Form1.BorderStyle:= bsSizeAble;
end else begin
Form1.WindowState:= wsMaximized;
Form1.BorderStyle:= bsNone;
end;
end;

//Открыть медиа файл
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
with MediaPlayer1 do begin
FileName:= OpenDialog1.FileName;
Open; end; end;

//Воспроизвести
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
with MediaPlayer1 do
begin
Display:= Panel1;
DisplayRect := Panel1.ClientRect;
Play; end; end;

Если помог напишите отзыв

[meklias]

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

Очень просто:

Я поставил TPanel, она для того,что-бы видео не закрывалось
кнопками с низу!

[CODE]

//Во весь экран при двойном нажатии на TPanel.
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
if BorderStyle = bsNone
then begin
Form1.WindowState:= wsNormal;
Form1.BorderStyle:= bsSizeAble;
end else begin
Form1.WindowState:= wsMaximized;
Form1.BorderStyle:= bsNone;
end;
end;

полноэкранный режим работает, но почемуто видио не показывает
незнаешь в чём проблема?

[Dr.Win32]

Лови проект!