在delphi中制作背景音乐.txt

创建异形窗体可以创建出各种各样的异形窗体

一、OLE控制使用Delphi2.0提供的“OLE接收框”组件，我们可以利用OLE嵌套的方法很快地为一个应用程序加入背景音乐，音乐文件可以是WAV文件或MIDI文件。
1.进入Delphi2.0系统环境，建立一个新的Form。建立后对表单样式进行一些设置，如屏幕大小、按钮、显示的文字等，做出一个漂亮的屏幕界面。选择组件板“(ComponentPalette)”中的“系统组件(SYSTEM)”选项卡，点击“OLEcontainer”组件，并将其拖至Form中任意位置即可建立一个OLE接收框(Olecontainerl)。在Olecontainer1上点击鼠标右键并选择快捷菜单中的“插入对象(InsertObject…)”，然后在“插入对象”窗口中选择“媒体剪辑”，选中“以图标显示”栏(必须选中此栏，否则无法将其隐藏起来)，按“确认”键退出。
2.在“媒体播放机”窗口中，选择“文件”、“打开”，从文件列表中选择想要作为背景音乐的声音文件。由于音乐文件一般不是很长，所以要求循环播放，可以通过设置“媒体播放机”重复播放来实现。然后选“重放的控制条”前的选中标记，确认后退出。
3.回到Delphi2.0系统环境，在“对象监视器(ObjectInspector)”窗口中选择“Olecontainer1”，设置它的“Visible”属性设为Flase(不可见)，“Autosize(自动调整大小)”属性设为Flase;再选择Form1的“事件页标(Events)”，加入Form1的FormCreate过程:
ProcedureTForm1.FormCreate(Sender:TObject);
Begin
Olecontainer1.Dovelb(0);
End;
4.按下“F9”键即可运行此程序。
二、多媒体播放器(MediaPlayer)
使用Delphi2.0提供的“多媒体播放器”组件，只需编写几句程序就可以为一个应用程序加入背景音乐，音乐文件可以是WAV文件或MIDI文件。
1.进入Delphi2.0系统环境，建立一个新的Form。建立后对表单样式进行一些设置，制作出屏幕界面。选择组件板(ComponentPalette)中的“系统组件(SYSTEM)”选项卡，点击“MediaPlayer”组件，并将其拖至Form中任意位置即可建立一个多媒体播放器MediaPlayer1)。
设置它的Visible属性为Flase，DeviceType属性为dtAutoSelect(自动选择)，Filename属性为音乐文件的文件名(.WAV，.Mid)。
2.编写相应过程。
ProcedureTForm1.FormCreate(Sender:TObject);
Begin
MidiaPlayer1.Open;
MediaPlayer1.Play;
End;
ProcedureTForm1.MediaPlayer1Notify(Sender:TObject);
Begin
MediaPlayer1.Play;
End;