Delphi程序设计及实验指导电子教案.pptxVIP

会计学1Delphi程序设计及实验指导电子教案 11.1 动画组件TAnimate1．用途 Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。 第1页/共31页 11.1 动画组件TAnimate2．主要属性(1) Active属性(2) Center属性(3) FileName属性 (4) FrameCount属性 (5) FrameHeight和 FrameWidth属性 (6) Open属性 (7) Repetitions属性 (8) StartFrame属性和StopFrame属性 (9) Timers属性 第2页/共31页 11.1 动画组件TAnimate注意：在使用Play方法时应用注意以下几点：FromFrame的值应该小于或等于ToFrame的值。Count参数值为0的时候代表持续播放，直到使用Stop方法时停止。StartFrame和StopFrame的值将在使用Play方法时被FromFrame和ToFrame的值覆盖。第3页/共31页 11.1 动画组件TAnimate【例11-1】使用Tanimate组件设计一个简单的动画播放程序。第4页/共31页 11.1 动画组件TAnimate11.1.2 媒体播放器组件TMediaPlayer1．用途Delphi提供了一个TMediaPlayer组件，使得程序员可以使用它快速开发音频或者视频播放器。TMediaPlayer组件提供了一个MCI（Media Control Interface，媒体控制界面），它可以轻松地在程序中加入多媒体功能。完整的MCI驱动程序能够支持*.wav、*.dat、*.midi和*.cda等格式的文件。第5页/共31页 11.1 动画组件TAnimate2．主要属性 (1) AutoEnable属性 (2) EnabledButtons属性 (3) AutoOpen属性 (4) AutoRewind属性 (5) ColoredButton属性 (6) DeviceType属性 (7) Display属性 (8) DisplayRect属性(9) Mode属性 (10) FileName属性 (11) StartPos属性 (12) EndPos属性 (13) Position属性 (14) Length属性 第6页/共31页 11.1 动画组件TAnimate【例11-2】使用TMediaPlayer组件编写一个简单的AVI文件播放器程序。 第7页/共31页 11.2 简单的动画播放程序的设计为了更好地理解TAnimate组件的属性、方法和事件，这一节创建一个简单的动画播放程序。通过实例3，更好地掌握TAnimate组件的应用以及多媒体程序的设计思路。 第8页/共31页 11.2 简单的动画播放程序的设计11.2.1 界面设计新建一个工程，按图11-6设计动画播放程序的界面。窗体及其组件属性的设置值如表11-2所示。第9页/共31页 11.2 简单的动画播放程序的设计图11-6设计动画播放程序的界面第10页/共31页 11.2 简单的动画播放程序的设计11.2.2 代码编写1．定义存放起始帧、结束帧、循环次数和总帧数varForm1: TForm1;StartFrame,StopFrame,RepeatFrame,SumFrame:integer; 第11页/共31页 11.2 简单的动画播放程序的设计2．TAnimate1组件的OnOpen事件处理程序代码procedure TForm1.Animate1Open(Sender: TObject);beginShowMessage(TAnimaet组件触发OnOpen事件，初始化变量!);(*初始化变量*)StartFrame:=Animate1.StartFrame;StopFrame:=Animate1.StopFrame;RepeatFrame:=Animate1.Repetitions;SumFrame:=Animate1.FrameCount;:=IntToStr(StartFrame);:=IntToStr(StopFrame);:=IntToStr(SumFrame);:=IntToStr(RepeatFrame);end;第12页/共31页 11.2 简单的动画播放程序的设计3．“开始播放”按钮的OnClick事件处理程序代码procedure TForm1.playCl