媒体播放器-完善.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 17 行

媒体播放器-使界面更专业一点(美化)的一些方法:
1.使用BitBnt(带图片的按钮代替播放器原来的按钮),用它的Glyph属性加载图片，用它的Layout(布局)属性改变图片与文字的相对位置
2.在窗体上放一个Image(图像)控件作背景(用它的Picture属性装载图像)
Image1.Align=alClient;
Image1.Stretch=True;
3.用我们自己的窗口播放
(1)在主界面上添加一个Panel(面板控件)作为播放窗口
MediaPlayer1.Display=Panel1;
MediaPlayer1.DisplayRect=Panel1.ClientRect;
(2)新增一个窗体Form2(File-->New-->Form)
MediaPlayer1.Display=Form2.Panel1;
MediaPlayer1.DisplayRect=Form2.Panel1.ClientRect;
新增Form2的OnResize(当窗体改变大小)事件(先选择Form2,在左边的'对象观察器'Object Inspector工具栏，翻倒事件Events页，找到OnResize事件，双击就生成了)
Form2.BorderStyle=bsNone;(把Form2的边框类型改为'无边框')
Form2.WindowState=wsMaximized;(把Form2的窗口状态改为'最大化')