论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > Flash教程
Tag:flash cs,flash 8,鼠绘,as,手绘,工具,文字,loading,入门,初学,mc,影片剪辑,声音,mtv,游戏,引导,遮罩,菜单,补间,广告条,时钟,视频教程

FLASH播放器DIY

文章类别:Flash | 发表日期:2008-9-21 20:07:32

  

我也不知道这里有多少人会delphi 所以做的比较具体 这样即使新手来了也能一步一步的完成……(我用的 delphi7 会vb的朋友看完这个教程大概也能自己做一个简单的播放器了

一、打开 delphi7如图:

按此在新窗口浏览图片

首先要在delphi里加入FLASH必须导入ShockwaveFlash ActiveX控件如图:

选择组件---插入ActiveX选项:

按此在新窗口浏览图片

出现如下图 并找到ShockwaveFlash控件,


按此在新窗口浏览图片
然后安装。

接着你就可以在控件区里看到你刚刚安装的组件了;

按此在新窗口浏览图片

将这个组件拖到form1里,接着拖入组件mainmenu 到form1里 如图:

按此在新窗口浏览图片

为了方便大家更好的观看 请暂时不要跟帖 谢谢……
双击mainmenu组件 弹出如下对话框:

按此在新窗口浏览图片

在属性栏里修改caption属性 如图

按此在新窗口浏览图片

注:(&Y)的作用是设置快捷键为ALT+Y;

然后接着输入打开的菜单 并设置该菜单的shortcut属性为ctrl+o(该属性为快捷键属性):


按此在新窗口浏览图片

接着完成其他的菜单属性的设置 比如播放 暂停等

接着在dialogs 控件组里选择opendialog控件并放到form1里 如图:


按此在新窗口浏览图片


接着单击form里的菜单“打开”选项 输入代码 如图

按此在新窗口浏览图片


接着完成剩下的代码……;


按此在新窗口浏览图片

然后进行测试

这里附上源文件 FLASH控件属性供大家参考

ReadyState:读一个flash文件时的状态,其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete;

  TotalFrames:总帧数,只有当ReadyState = 4时才能访问该属性;

  FrameNum:当前播放的帧;

  Playing:播放或暂停一个flash;

  Quality:指定当前渲染的质量,包括0=Low, 1=High、2=AutoLow、3=AutoHigh;

  ScaleMode:缩放模式,0=ShowAll、1= NoBorder、2 = ExactFit;

  AlignMode:对齐模式,Left=+1、Right=+2、Top=+4、Bottom=+8;

  BackgroundColor:背景色,-1为默认颜色;

  Loop:是否循环;

  Movie:指定播放的flash文件路径,可以为一个URL。

  TShockwaveFlash主要方法如下:

  Play():开始播放动画;

  Stop();停止播放动画;

  Back();播放前一帧动画;

  Forward():播放后一帧动画;

  Rewind():播放第一帧动画;

  SetZoomRect(int left, int top, int right, int bottom):设置缩放的区域;

  Zoom(int percent):按百分比缩放;

  Pan(int x, int y, int mode):缩放播放面板,其中模式0为按像数、1为按窗口百分比。

点击浏览该文件

上一篇:{实例}滚动条制作 人气:2685
下一篇:{实例}一个斜仰视角的绘法 人气:2962
视频教程列表
文章教程搜索
 
Flash推荐教程
Flash热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058