网站导航：网学原创论文原创专题网站设计最新系统原创论文论文降重发表论文论文发表 UI设计定制论文答辩PPT格式排版期刊发表论文专题

当前位置：网学 > 交易代码 > Delphi精品代码 > 正文

Delphi编程播放无声音的AVI动画

论文降重修改服务、格式排版等获取论文论文降重及排版论文发表相关服务

　　本实例将演示如何在程序运行过程中放映没有声音的AVI动画文件。

　　向窗体上添加一个TAnimate组件，并且设置它的CommonAVI属性为aviCopyFile，这样在TAnimate组件中就会显示拷贝文件的动画。添加组件后的窗体如图1所示。

图1 添加组件后的窗体

　　在窗体的初始化过程中添加以下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
　self.Animate1.Active:=true;
end;

　　这样，在程序运行的初期，程序就会激活TAnimate组件，从而开始播放拷贝文件的动画aviCopyFile。

　　程序代码如下：

unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type
　TForm1 = class(TForm)
　Animate1: TAnimate;
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;

var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.FormCreate(Sender: TObject);
begin
　self.Animate1.Active:=true;
end;

end.

　　保存文件，然后按F9键运行程序，程序运行结果如图2所示。

图2 程序运行结果

　　本程序中没有调用磁盘中的AVI动画文件，读者在自己的应用程序中可以通过指定TAnimate组件的FileName属性来播放没有声音的AVI动画文件。

上一篇资讯： Delphi下“培养”自己的简单木马

下一篇资讯： Delphi写的RM文件分析器源代码

相关资讯

网学推荐

·原创论文的写法

·论文数据图表制作

·论文排版通过检测检测

·提供系统开发和运行服务

·提供原创参考资料

·档案托管服务

·原创参考论文导航

·查重服务维普检测低于30%

·我们提供原创参考论文和原创的参

·原创的论文资料参考节省时间！

·论文格式排版格式核对！

·UI设计定制、界面设计

·程序和网站等UI设计定制！

·原创参考论文参考定制！

·职称和论文发表,可联系业务我们

·本科毕业设计(论文)答辩指南

·程序制作专家

原创论文

·论文选题-查重参考论文

·参考论文大全

·电气工程及其自动化

·电子信息工程

·公共关系学

·公共事业管理

·公路交通运输

文章排行榜

· Delphi编程实现3D图形修饰技术

· 开发嵌入式IE浏览器监控程序

· Delphi&BCB一线程序员开发经验

· listview图标自绘效果

· CXGrid的使用技巧

· ExpressQuantumGrid_Suite(cxGrid)

· cxGrid的使用

· 飞信VCL控件

· 禁止Delphi检测新版本

· 15本Delphi书籍(PDF格式)下载

· 保存RAVE报表为PDF文件

· 学生管理系统课程设计报告

· 大型超市管理系统

· 仓库管理信息系统

· 代码风格约定Delphi

· 外部程序调用讯雷下载文件的方法

· Delphi学生公寓管理系统

· delphi物业管理系统

设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创

版权所有网学网 [Myeducs.cn] 您电脑的分辨率是像素
Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号常年法律顾问：王律师