难题不难，兄弟们帮忙:):):):):):):):):):):):):):):) UP 有分

Question

我用TMediaPlayer做一个视屏播放器  但不是知道，怎么样实现全屏播放那种啊。
谢谢!!!!!!!!!

Answer 1

放一个按钮里面写tm.fullScreen
tm为mediaplay控件

Answer 2

Form1.MediaPlayer1.disPlay := Form1; //指定播放窗口
　　Form1.MediaPlayer1.DisPlayRect := Rect(20,20,160,160); //播放窗口的区域
form1最大化，，然后把标题栏隐藏掉，在把播放窗口调到form1的大小就可以了

Answer 3

800*600:
MediaPlayer1.disPlay := Form1;
    form1.BorderStyle :=bsNone;
    form1.WindowState :=wsMaximized ;
    MediaPlayer1.DisPlayRect := Rect(0,0,800,600);

Answer 4

pl5th2001(白牙) 楼主，你所说的我试过了，不可用的，这样也是，FROM上就没有显示，我也不知道是设到哪一点了，真郁闷得很啊

Answer 5

Delphi自带的Tmediaplayer控件没有fullscreen属性或方法，banbinge你要设置display属性才可以有显示。
楼主的功能我建议使用activex控件，根本就不用编写代码。

Answer 6

VirtualProtectEx这个函数是用来保护内存的//有些地址用VirtualProtectEx返回0，但是我能读出数据，不知道为什么没遇到过的，不过既然是保护，那就是预防万一。如果保护不成功，那不保护的话也应该能读写的吧……胡诌的