如何设置mediaplayer播放画面的大小

MediaPlayer1.Display:=panel1;
在panel1上播放，但是画面很小，怎么设置画面的尺寸？

解决方案 »

  1.   

    你把panel的尺寸改大点不行吗？
      

  2.   

    把Panel1放到一个新的窗体上！
    Panel1的align属性设置为alClient!
    要想全屏，可以这样写！~
    把这两句加在某按钮单击事件即可！
    From1.BorderStyle := bsNone;
    From1.WindowState := wmMAXimized;
      

  3.   

    不对啊，我是这么写的
     MediaPlayer1.Display:=panel1;
     MediaPlayer1.DisplayRect := panel1.ClientRect;
     MediaPlayer1.Visible:=false;
     MediaPlayer1.FileName:=extractFilePath(application.ExeName)+'speedis.avi';
     Mediaplayer1.AutoEnable:=true;
     Mediaplayer1.Open;
     MediaPlayer1.Play; Panel1的align属性也设置为alClient
    不过画面还是小啊，而且我不要全屏的
      

  4.   

    1.file-->new-->form新建一个form2(对应unit2);
    2.在form2上放一个 panel,设置allign:=alClient;
    3.在unit1.pas中加入
    implementation
    uses unit2;//加入这一句
    {$R *.dfm}
    4.在form1中设置MediaPlayer1.display:=Form2.Panel1;
    5.要更改播放显示区域只要更改form2的大小(width,height)就行了。
      

  5.   

    另外，设置MediaPlayer1.display:=Form2.Panel1的另外一个好处是在播放过程中用户可以通过改变窗体（form2)大小来调节显示区域大小。