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)大小来调节显示区域大小。
      

类似问题 »