1,221
社区成员
发帖
与我相关
我的任务
分享如何使Windows Media Player控件全屏播放呢？？？？我给100分~~
如何使Windows Media Player控件全屏播放呢？？？？如果复杂可用QQ告诉我我的QQ是：82865
...全文
请发表友善的回复…
发表回复
tanbi52 2003-09-14
- 打赏
- 举报
好东东，好玩
jishiping 2003-09-14
- 打赏
- 举报
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm* Form = new TForm(this);
Form->BorderStyle = bsNone;
Form->FormStyle = fsStayOnTop;
Form->SetBounds(0, 0, Screen->Width, Screen->Height);
Form->Show(); MediaPlayer1->Display = Form;
MediaPlayer1->DisplayRect = Form->BoundsRect;
}
不过这样的话，你就不好控制这个Form了。所以，你最好自己做一个TForm2，TForm2上只要
放一个TPopupMenu控件就可以了，这样用户就可以通过在Form2上点击鼠标右键来控制这个
Form了。比如TPopupMenu里包含“还原”、“播放”、“暂停”这些菜单项，当然还可以有
其它的菜单项。
{
TForm* Form = new TForm(this);
Form->BorderStyle = bsNone;
Form->FormStyle = fsStayOnTop;
Form->SetBounds(0, 0, Screen->Width, Screen->Height);
Form->Show(); MediaPlayer1->Display = Form;
MediaPlayer1->DisplayRect = Form->BoundsRect;
}
不过这样的话，你就不好控制这个Form了。所以，你最好自己做一个TForm2，TForm2上只要
放一个TPopupMenu控件就可以了，这样用户就可以通过在Form2上点击鼠标右键来控制这个
Form了。比如TPopupMenu里包含“还原”、“播放”、“暂停”这些菜单项，当然还可以有
其它的菜单项。
tongqingchao 2003-09-14
- 打赏
- 举报
代码给我好吗！！
jishiping 2003-09-14
- 打赏
- 举报
这个很简单吧。new一个空白的Form（Form的属性BorderStyle为bsNone，属性FormStyle为
fsStayOnTop），将TMediaPlayer的属性Display指向这个Form，同时修改Form的大小为屏幕
的大小不就可以了。
fsStayOnTop），将TMediaPlayer的属性Display指向这个Form，同时修改Form的大小为屏幕
的大小不就可以了。
tongqingchao 2003-09-14
- 打赏
- 举报
不行呀！！！！！！！！！！！
tongqingchao 2003-09-14
- 打赏
- 举报
没有的！！不相信你试试！！！！！
binbin 2003-09-14
- 打赏
- 举报
有个fullScreen属性的.
