关于mediaplayer控件display属性设置的问题

Question

在 form1 上添加一个 mediaplayer 和 panel 控件将mediaplayer的 display 属性设置为 panel同时：mediaplayer1.DisplayRect:=panel1.ClientRect;当打开一个视频文件时，有的时候 不能在 panel 上完成显示视频，只是视频的一个部分而有的视频文件能在 panel上完成显示，但是 panel旁边还有空白如何让 panel的尺寸自动改变大小，以适应不同视频文件的画面谢谢

Answer 1

给你段代码：procedure TForm1.OpenClick(Sender: TObject);
var
  Rect1: TRect;
begin
  if OpenDialog1.Execute then
  begin
    MediaPlayer1.Close;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    rect1 := MediaPlayer1.DisplayRect;
    Panel1.Width := Rect1.Right-Rect1.Left;
    Panel1.Height := Rect1.Bottom-Rect1.Top;
    Panel2.Top := Panel1.Top+Panel1.Height;
    Panel2.Width := Panel1.Width;
    MediaState := msOpen;
  end;
end;