使用TMediePlayer播放视频，如何全屏显示图像

Question

各位大虾，使用TMediePlayer播放视频，如何全屏显示图像，默认的大小太小了，而且不能拉大，各位有办法吗？

Answer 1

在Form上放一个Panel(TPanel)，将MediaPlayer的Display设置为这个Panel，然后写一行：
MediaPlayer.DisplayRect := Rect(Panel.Left, Panel.Top, Panel.Width, Panel.Height);
你把Panel设置得多大，就能显示多大的画面，如果让Form全屏显示，将Panel充满屏幕，那么就是全屏显示了。