一个Delphi中使用TMediaPlayer全屏播放的例子，做法挺简单的。需要在TForm上放置2个按钮，一个用来播放，一个用来关闭TForm。然后再放置一个 TMediaPlayer 和 TPanel 控件即可。
所有的属性都是在运行期设置的。代码如下：
unit Unit2;[......]
一个Delphi中使用TMediaPlayer全屏播放的例子，做法挺简单的。需要在TForm上放置2个按钮，一个用来播放，一个用来关闭TForm。然后再放置一个 TMediaPlayer 和 TPanel 控件即可。
所有的属性都是在运行期设置的。代码如下：
unit Unit2;[......]