821 Animate组件的主要属性(2) Stop Frame,属性:设置播放的Aⅵ文件在哪一帧结束,系统会自动 地获取Aⅵ文件中帧的总帧数。你也可以设置一个数值来指定结束 的帧数,如果你设置的结束帧数小于A文件中的总帧数的话,那 么Aⅵ文件就会提前结束,如果你设置的结束帧数大于Av文件中 的总帧数的话,系统还是按照原来的A文件中的帧数来播放 Repetiton属性;设置重复播放AM文件的次数。默认值为0,表 示无限制地播放 Tmer属性:设定使用计时器显示信息。当Tmer属性设为True时 系统以同步式相应计时器显示信息。这对于动画显示和其他动作 同步显示非常有用。 Tran^ aparent厲烂:设置播放的背景是否为透明的。默认值为True, 表示播放背景是透明的 Inprise Dephi
8.2.1 Tanimate 组件的主要属性(2) StopFrame属性：设置播放的Avi文件在哪一帧结束，系统会自动 地获取Avi文件中帧的总帧数。你也可以设置一个数值来指定结束 的帧数，如果你设置的结束帧数小于Avi文件中的总帧数的话，那 么Avi文件就会提前结束，如果你设置的结束帧数大于Avi文件中 的总帧数的话，系统还是按照原来的Avi文件中的帧数来播放。 Repetitons属性：设置重复播放Avi文件的次数。默认值为0，表 示无限制地播放。 Timer属性：设定使用计时器显示信息。当Timer属性设为True时， 系统以同步式相应计时器显示信息。这对于动画显示和其他动作 同步显示非常有用。 Transparent属性：设置播放的背景是否为透明的。默认值为True， 表示播放背景是透明的
822 Animate组件的主要方法 1. Create方法 Create方法用于创建和初始化动画控制,它常用在实时状态下。当在设计阶段 放置一个 Animate组件在窗体上的时候,该方法会被自动调用。 2.Pay方法 Play方法是用来播放Aⅵ文件。它的调用方式为: procedure Play(FromFrame, ToFrame: Word; Count: Integer) 其中 Fromframe表示播放Aⅵ文件开始的帧, ToFrame表示播放Av文件结束的 帧, count表示播放Aⅵ文件的次数。 FromFrame要小于 ToFrame的值。 3.Seek方法 seek方法用来显示Av文件中指定的某一帧。它的调用方式为: procedure Seek(Frame: SmallInt 其中 frame表示指定的帧。 4. Reset方法 Reset方法用来清除原来设定的 StarfRame和 StopFrame的值,恢复成初始值。 5.Stop方法 Stop方法用来终止AM文件的播放操作。 Inprise Dephi
8.2.2 Tanimate 组件的主要方法 1. Create 方法 Create方法用于创建和初始化动画控制，它常用在实时状态下。当在设计阶段 放置一个 Tanimate 组件在窗体上的时候，该方法会被自动调用。 2. Play 方法 Play方法是用来播放Avi文件。它的调用方式为： procedure Play(FromFrame, ToFrame: Word; Count: Integer); 其中FromFrame表示播放Avi文件开始的帧，ToFrame表示播放Avi文件结束的 帧，count表示播放Avi文件的次数。FromFrame要小于ToFrame的值。 3. Seek方法 Seek方法用来显示Avi文件中指定的某一帧。它的调用方式为： procedure Seek(Frame: SmallInt); 其中frame表示指定的帧。 4. Reset 方法 Reset 方法用来清除原来设定的StartFrame和StopFrame的值，恢复成初始值。 5. Stop方法 Stop方法用来终止Avi文件的播放操作
823 Animate组件的主要事件 1. On stop事件 NoNstop事件主要是当Aⅵ文件显示完以后被激活。它的调用方式为: property On Stop TNotify Event; 2. Onclose享件 OnClose事件是当Av文件被关闭以后所激活的事件。它和 On Stop事件的 区别在于OnC|ose事件是在关闭掉了动画组件以后所产生的事件,而 NoNstop事件是动画结束而没有关闭动画组件的时候所产生的事件。它的调 用方式为 property OnClose: TNotify Event 3. Onstart-件 On start事件是在 Animate组件开始播放图片时被激活的事件。它的调用 方式为: property On Stant: TNotify Event 4. Onopen事件 OnOpen事件是在当动画组件打开以后被激活的事件。它的调用方式为: property OnOpen TNotify Event Inprise Dephi
8.2.3 Tanimate组件的主要事件 1. OnStop 事件 OnStop事件主要是当Avi文件显示完以后被激活。它的调用方式为： property OnStop: TNotifyEvent; 2. OnClose事件 OnClose事件是当Avi文件被关闭以后所激活的事件。它和OnStop事件的 区别在于OnClose事件是在关闭掉了动画组件以后所产生的事件，而 OnStop事件是动画结束而没有关闭动画组件的时候所产生的事件。它的调 用方式为： property OnClose: TNotifyEvent; 3. Onstart事件 OnStart事件是在Tanimate 组件开始播放图片时被激活的事件。它的调用 方式为： property OnStant: TNotifyEvent; 4. OnOpen事件 OnOpen事件是在当动画组件打开以后被激活的事件。它的调用方式为： property OnOpen: TNotifyEvent;
824编程实例(1) 【例8-1】这个程序主要是说明 Animate的简单应用。界面如图8-2所示。 x 1.主要实现的功能 图8-2动画组件演示 单击开始按钮,就可以播放Aⅵ动画 ③单击结束按钮,就可中断动画的播放。 2设置对象的属性如表8-2所示 3.编写的代码 procedure TForm1. Button 1Click(Sender: TObject) begin animate1 Active:=true;/J开始播放A文件 en Inprise Dephi
8.2.4 编程实例(1) 1. 主要实现的功能 单击开始按钮，就可以播放Avi动画。 单击结束按钮，就可中断动画的播放。 2. 设置对象的属性如表8-2所示 【例8-1】 这个程序主要是说明Tanimate的简单应用。界面如图8-2所示。 图8-2 动画组件演示 3. 编写的代码 procedure TForm1.Button1Click(Sender: TObject); begin animate1.Active:=true;//开始播放Avi文件 end;
824编程实例(2) procedure TForm1. Button2Click(Sender: TObject) begin animate1.Stop;/结束Aⅵ文件的播放 end 表8-2各组件属性设置 对象 属性 属性值 说明 Forml caption 动画组件演示 active False 不用自动播放 Animate l Center True 在 Animate中央播放 Commonavi| aviRecyclefile播放的Av文件 Button caption 开始 Button caption 结束 Inprise Deph
8.2.4 编程实例(2) procedure TForm1.Button2Click(Sender: TObject); begin animate1.Stop;//结束Avi文件的播放 end; 对象 属性 属性值 说明 Form1 caption 动画组件演示 Animate1 active False 不用自动播放 Center True 在Animate中央播放 Commonavi aviRecycleFile 播放的Avi文件 Button1 caption 开始 Button2 caption 结束 表8-2 各组件属性设置