834编程实例(1) 【例8-4】媒体播放。主要的界面如图8-6所示。 运行以后的界面如图8-7所示 对象属性设置如表8-7所示。 主要程序代码如下 图8-6媒体播 放(一) {对“播放”按钮进行设置,单击“播放”按钮就要 开始播放Aⅵ文件} procedure TForm1. Button 1Click(Sender: TObject) begin mediaplayer1 Notify:=true;∥在设计阶段要将 Notify的 值设置为True。 」 mediaplayer1.Pay;/J始播放Aⅵ文件。 end 图8-7播放时的界面 procedure TForm1.Button3Click(Sender: TObject) Begin mediaplayer1.stop;停止AM文件的播敖 uprise Dephi8.3.4 编程实例（1） 【例8-4】媒体播放。主要的界面如图8-6所示。 图8-6 媒体播 放（一）  运行以后的界面如图8-7所示。 图8-7 播放时的界面  对象属性设置如表8-7所示。  主要程序代码如下： ｛对“播放”按钮进行设置，单击“播放”按钮就要 开始播放Avi文件｝ procedure TForm1.Button1Click(Sender: TObject); begin mediaplayer1.Notify:=true;//在设计阶段要将Notify的 值设置为True。 mediaplayer1.Play;//开始播放Avi文件。 end; procedure TForm1.Button3Click(Sender: TObject); Begin mediaplayer1.Stop;//停止Avi文件的播放