如果将 MediaPlayer 播放的视频全屏显示？

如题，谢谢！

解决方案 »

  1.   

    http://www.delphibbs.com/delphibbs/dispq.asp?lid=395089
    看看这个帖子
      

  2.   

    procedure  fullscreen;
    var
      wndhandle:thandle;
      wndclass:array[0..50] of char;
    begin
    //设置窗口最大化
      form1.WindowState:=wsmaximized;
    //隐藏任务栏
      strcopy(@wndclass[0],'shell_traywnd');
      wndhandle:=findwindow(@wndclass[0],nil);
      showwindow(wndhandle,SW_HIDE);
    //去掉窗口的标题栏
      setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (not WS_CAPTION));
    //设窗口为当前屏幕的宽和高
      clientheight:=height;
      clientwidth:=width;
    end;  
    -----------------
    在要播放的窗口上放一个panel 控件,
    设置它的 active 为 client,
    将mediaplayer的display属性设置播放窗口上的 panel.将panel的双击事件加下我上面的哪段代码即可.
    要恢复原来的窗口,只要改为 :  form1.WindowState:=normal;
    //显示 任务栏
      strcopy(@wndclass[0],'shell_traywnd');
      wndhandle:=findwindow(@wndclass[0],nil);
      showwindow(wndhandle,SW_SHOW);
    //显示窗口的标题栏
      setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (WS_CAPTION));
    如果将这两段代码加一个开关标识,当双击一次就全屏,再双
    击一次又恢复原窗口,这样就可以像解霸一样播放 mpeg了.  
      

  3.   

    1、将Form设置为没有边框(bsNone)，最大化2、将播放区域指定到Form上
     (1)MediaPlayer1.Display:=Form1;
     (2)MediaPlayer1.DisplayRect:=<自己指定>;
      

  4.   

    编译无法通过，在setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (not WS_CAPTION)); 这句上有错误：没有定义！