Вывод видео на компонент Form в Delphi

[ЕКА]

Как сделать так чтобы видео воспроизводилось не на весь компонент Form а на его определенную ограниченную область.

Там чтото с weidth и heidth надо нахимичить, но я не понимаю строки кода, обьясните пожалуйста.

Надеюсь вы поймете мой вопрос, мне трудно было его сформулировать

[KORN]

выводи на panel

[ЕКА]

Panel - [||||], пытался сделать вывод изображения на этот компонент не воспроизводит никакое изображение, он видимо должен быть тогоже размера что и разрешение видеофайла

PS смайлик - [||||] означает боян

[KORN]

если ты воспроизводишь через медиаплеер, то у него есть параметр Display и там указываешь panel и тогда все выводит...

насчет смайла я знаю и рисуется он так [:|||||:]

[uberchel]

Надо так:

//На панели
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
with MediaPlayer1 do  begin
Display:= Panel1;
FileName:= OpenDialog1.FileName;
Open;
DisplayRect := Panel1.ClientRect;
Play; end;
end;

//На Форме
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
with MediaPlayer1 do begin
Display:= Form1;
FileName:= OpenDialog1.FileName;
Open;
DisplayRect := Rect(20,20,200,150);
Play;
end;
end;

Если помог добавте отзыв