关于媒体播放器的问题? 把窗口WindowsState:=wsMAX,Panel.Align:=alClient;即可。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1.全屏幕:自己定义一个全屏幕窗体(bsnone状态的)在上面放一个panel,设置为alcleintwdith:=screen.wdith;height:=screen.height;left:=0;top:=0;然后将mp的显示区域定义为这个窗体上的panel2.连续播放:利用string保存文件名,在产生notify事件之后检查1.mp是否停止?2.正播放的文件是否已经播放完?若是...新读文件名,然后open and play... 切~~~~这很简单啊首先放panel设置好alclientmp的display:=panel;在菜单的onclick里form1.bodystyle:=bsnone;form1.left:=0;form1.top:=0;form1.wdith:=screen.wdith;form1.height:=screen.height;如果想还原的话在另外一个onclick里再来恢复前提是保存了窗体原先的属性如果你还不知道的话我也无能为力了~~~怪我说不清楚 对了,在form的resize里设置displayrect procedure TForm1.FormCreate(Sender: TObject);beginMediaPlayer1.open;MediaPlayer1.display:=form1;MediaPlayer1.displayrect:=rect(0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN));Form1.WindowState:=wsMaximized;MediaPlayer1.Play;end; delphi oracle unicode 存取照片问题 Setup Factory 打包问题请教 fastmm的使用问题 如何用Delphi实现运行时自定义窗体模版 资源管理器 得到cxGrid被选(多选)后的字段内容 如何让一个窗口始终在最前面? 请教DEV EXPRESS的问题! +++++高分求助!我在一个线程里使用showmessage('end!');怎么出错啦?大家帮我看看代码!谢谢! 是delphi高手的进来,帮帮小弟, 高手请教请教:我也不知怎么说,你看过就知道。 :) 怎样定义TStringGrid某一行的颜色?
自己定义一个全屏幕窗体(bsnone状态的)
在上面放一个panel,设置为alcleint
wdith:=screen.wdith;
height:=screen.height;
left:=0;
top:=0;
然后将mp的显示区域定义为这个窗体上的panel2.连续播放:利用string保存文件名,在产生notify事件之后检查1.mp是否停止?2.正播放的文件是否已经播放完?若是...新读文件名,然后open and play...
首先放panel
设置好alclient
mp的display:=panel;在菜单的onclick里
form1.bodystyle:=bsnone;
form1.left:=0;
form1.top:=0;
form1.wdith:=screen.wdith;
form1.height:=screen.height;如果想还原的话
在另外一个onclick里再来恢复
前提是保存了窗体原先的属性
如果你还不知道的话
我也无能为力了~~~怪我说不清楚
displayrect
MediaPlayer1.open;
MediaPlayer1.display:=form1;
MediaPlayer1.displayrect:=rect(0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN));
Form1.WindowState:=wsMaximized;
MediaPlayer1.Play;
end;