如果将 MediaPlayer 播放的视频全屏显示？
如题，谢谢！ 问题点数：100、回复次数：5Top
1 楼lzy6204（为了忘却的记忆）回复于 2005-11-08 10:49:44 得分 100
http://www.delphibbs.com/delphibbs/dispq.asp?lid=395089
看看这个帖子Top
2 楼lzy6204（为了忘却的记忆）回复于 2005-11-08 10:50:33 得分 0
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了.
Top
3 楼yayx（yayx）回复于 2005-11-08 10:52:03 得分 0
1、将Form设置为没有边框(bsNone)，最大化
2、将播放区域指定到Form上
(1)MediaPlayer1.Display:=Form1;
(2)MediaPlayer1.DisplayRect:=<自己指定>;Top
4 楼danny1123（丹尼）回复于 2005-11-10 03:53:21 得分 0
编译无法通过，在setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (not WS_CAPTION)); 这句上有错误：没有定义！Top
5 楼netying（）回复于 2005-12-20 22:14:40 得分 0
markTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
