delphi 显示多个swf文件

当Delphi使用TPageControl显示多个swf文件时,如果对TShockwaveFlash采用默认值的情况下,会发现不能显示的问题,经查阅资料,发现其属性seamlesstabbing默认值为true,当把其改为false,则显示正常。

官方资料:

Disabling seamless tabbing

This release of ActiveX Flash Player supports a new HTML parameter called SeamlessTabbing. The default value is true; set this parameter to false to disable "seamless tabbing", which allows users to use the Tab key to move keyboard focus out of a Flash movie and into the surrounding HTML (or the browser, if there is nothing focusable in the HTML following the Flash movie). ActiveX Flash Player has supported seamless tabbing since version 7.0.14.0. Disabling seamless tabbing restores the tabbing behavior of Flash Player 6, in which tabbing from the end of the tab order inside a Flash movie wraps the focus back to the first focusable object in the Flash movie. Here is an example of disabling seamless tabbing:

<object ... >
...
<param name="SeamlessTabbing" value="false">
...
</object>


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
前段时间烈火下载给大家提供了一款Flash文件转EXE的Delphi源代码,我们知道SWF转EXE是很常见的,那么反相转换(EXE转Flash)你有没有见过呢?今天就带给大家这样的源程序SWFFlash的一种生成格式,依靠自已公司的FlashPlyaer插件运行,如果要想脱离插件,需导出成EXE文件格式,用Flash软件可以,如果没有可以自己写程序SWF转换成EXE,将EXE转换成SWF是个逆过程,具体请看代码。   // 将Edit1中的路径赋给exeFileName变量   exeFileName := Edit1.Text;   // 修改EXE路径中的扩展名,以获取SWF文件的存储路径。   swfFileName := ChangeFileExt(exeFileName, ‘.swf‘);   // 检查指定的EXE文件是否存在,如果不存在则退出过程,不做任何处理。   if not FileExists(exeFileName) then   begin     ShowMessage(‘文件未找到.);     Exit;   end;   // 分别创建swfFile及exeFile对象   // 创建空的swf文件并赋于写入的权限(fmOpenWrite)   swfFile:=TFileStream.Create(swfFileName, fmCreate or fmOpenWrite);   // 打开EXE文件,并赋于读取的权限(fmOpenRead)   exeFile:=TFileStream.Create(exeFileName, fmOpenRead);   // 从EXE文件开头搜索   // 将文件指针移到存储SWF文件大小的地方   // exeFile.Size用于获取整个EXE文件的大小,减去4个字节正好是SWF文件大小储存的地方   exeFile.Seek(exeFile.Size - 4, soFromBeginning);   // 读出SWF文件的大小   exeFile.Read(nFileSize, 4);   // 将文件指针移动到SWF文件开始处   exeFile.Seek(exeFile.Size - (nFileSize   8), soFromBeginning);   // 将SWF文件所有内容复制到swfFile对象中去   // 此时SWf文件内容已保存在硬盘中了   swfFile.CopyFrom(exeFile, nFileSize);   // 释放资源   swfFile.Free;   exeFile.Free;   ShowMessage(‘SWF文件已成功还原.); end;

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值