[nbstudio]

Подскажите как сделать, чтобы панель на котором отображается видео (с MediaPlayer) автоматически подстраивалась под размер видео, а не отображала видео частично.

[AlexSku]

Точно надо менять размеры панели? Обычно, если панель как бы увеличивается, то стараются оставить прежними видимые размеры, но вводят прокрутку (ScrollBox). Стандартные решения - либо использовать окно (Form) или изменение размеров видео (Stretch).

[Mealgay]

Это на самом деле очень просто вот мой код.

procedure onRizeVideo;

Код:

procedure TForm1.onRizeVideo;
var MyRect: TRect;
begin
 MediaPlayer1.Stop;
 MyRect.Top := Panel1.ClientRect.Top;
 MyRect.Left := Panel1.ClientRect.Left;
 MyRect.Right := Panel1.ClientRect.Right;
 MyRect.Bottom := Panel1.ClientRect.Bottom;
 MediaPlayer1.DisplayRect := MyRect;
 MediaPlayer1.Play;
end;

Код:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
 onRizeVideo;
end;

Код:

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

[Страдалецъ]

procedure TForm1.onRizeVideo;
var MyRect: TRect;
begin
MediaPlayer1.Stop;
MyRect.Top := Panel1.ClientRect.Top;
MyRect.Left := Panel1.ClientRect.Left;
MyRect.Right := Panel1.ClientRect.Right;
MyRect.Bottom := Panel1.ClientRect.Bottom;
MediaPlayer1.DisplayRect := MyRect;
MediaPlayer1.Play;
end;

А напрямую присваивать - вера не позволяет?

Код:

procedure TForm1.onRizeVideo;
begin
 MediaPlayer1.Stop;
 MediaPlayer1.DisplayRect := Panel1.ClientRect;
 MediaPlayer1.Play;
end;

[Mealgay]

Хм. Точно что-то я немного тупанул. Нечего бывает.