把窗口WindowsState:=wsMAX,Panel.Align:=alClient;即可。

解决方案 »

  1.   

    1.全屏幕:
    自己定义一个全屏幕窗体(bsnone状态的)
    在上面放一个panel,设置为alcleint
    wdith:=screen.wdith;
    height:=screen.height;
    left:=0;
    top:=0;
    然后将mp的显示区域定义为这个窗体上的panel2.连续播放:利用string保存文件名,在产生notify事件之后检查1.mp是否停止?2.正播放的文件是否已经播放完?若是...新读文件名,然后open and play... 
      

  2.   

    切~~~~这很简单啊
    首先放panel
    设置好alclient
    mp的display:=panel;在菜单的onclick里
    form1.bodystyle:=bsnone;
    form1.left:=0;
    form1.top:=0;
    form1.wdith:=screen.wdith;
    form1.height:=screen.height;如果想还原的话
    在另外一个onclick里再来恢复
    前提是保存了窗体原先的属性
    如果你还不知道的话
    我也无能为力了~~~怪我说不清楚
      

  3.   

    对了,在form的resize里设置
    displayrect
      

  4.   

    procedure TForm1.FormCreate(Sender: TObject);begin
    MediaPlayer1.open;
    MediaPlayer1.display:=form1;
    MediaPlayer1.displayrect:=rect(0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN));
    Form1.WindowState:=wsMaximized;
    MediaPlayer1.Play;
    end;