有关flash的问题(20分)

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-27

• #1

1。我在delphi里插入flash动画后，请问如何让flash的右键失效？或者用我的右键替代？
2。我用opendialog打开flash动画：
..movie：=opendialog1.filename（'d;/aa/aa.swf'）
如何去掉d;/aa/，只要我的可执行文件和aa.swf属于同一目录就可以？

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-27

• #2

2. opendialog1.InitalDir := ExtractFileDir(Application.ExeName);

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #3

第二个问题已解决，先谢谢beta，第一个问题是不是不能解决？

 

余

余六

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #4

你可以看看你Import时候生成的unit文件里有没有这样的方法

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #5

怎样能看到？
各位大侠赶快帮忙，我急死了

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #6

shockwaveFlash1有一个menu属性，我给他设为false，但还能看见
“about micromedia....”只要将他去掉就ok了

 

M

Mr.oos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #7

有控件可以实现的

 

A

avant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #8

无法完全去掉,把menu属性设为false, 也会出来菜单, 只是只有一项,"About MacroMedia Flash"

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #9

avant: 对
Mr.oos： 真的能实现完全去掉？

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #10

更恐怖的事发生了
我做的播放flash的这个可执行文件在别的机子上执行不起来！！
form都没有，只看见硬盘在闪，什么都没有查看任务管理器，也没发现，怎么搞得？
我要吐血了

 

D

doxpix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #11

那个机子缺个swflash.ocx文件，要拷贝到windows/system目录下，
最好还要先用regsvr32.exe注册一下该控件。
或者装个flash pleyer了事！

这多烦呀，找找看有没有VCL控件。

 

D

doxpix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #12

转了一圈，flash的VCL还没有出世。
将就点吧，伙计。

 

A

avant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #13

做一个批处理文件regflash.bat
@echo on
set PATH=C:/WINDOWS/;C:/WINDOWS/SYSTEM/
regsvr32 /s swflash.ocx
exit

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-28

• #14

form是出来了，谢谢楼上两位，可是flash还是没有，怎么办，是不是要下载flash？

 

A

avant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-29

• #15

不会吧,只要提示swflash.ocx注册成功,肯定会出来的.
你的flash是在设计时装入还是运行时装入?如是在运行时装入(swfXXX.movie := xxx),看看
flash文件指对了没,是否有效.即使是老版本的ocx,也应该能出来个大致的动画(有一些效果没
有).我测试过,没问题.

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-29

• #16

是吗？我在试试。
那右键能不能全去掉？

 

J

JimLee2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-30

• #17

对于第一个问题，可以这样做：
1、你可以在制作swf文件时，在第一帧加上这样一句：
fscommand(showmenu,false);
fscommand(showmenu,"-");
以后调用该swf时右击将会出现一个popmenu，但是只显示“-”。
2、你也可以用exescope修改shockwaveflash.ocx，修改其菜单的内容，变成你自己的提示，
比如：JimLee2000制作，然后替换flash目录下的player目录下的InstallAXFlash.exe（可以）
改称.cab后缀后用相关压缩软件打开）中去，在发行你的程序时将该执行文件一起发行，将会
将shockwaveFlash控件自动安装到客户的系统中。

需要注意的是，flash的控件有ver4和ver5两个版本，最好使用最新的版本，不然，flash5下
做的东西有些语句将不能使用。

关于第二个问题，可以在delphi中加上这样两句：
var apppath:string;
……
apppath:=ExtractFilePath(paramstr(0));’取应用程序路径；
后面直接调用apppath即可。

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-30

• #18

JimLee2000：
谢谢。可是
fscommand(showmenu,false);
fscommand(showmenu,"-");
好像没作用，是不是你少说了什么？
你有oicq吗。我都快急死了

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-01

• #19

create中：
application.onmessage:=mymessage;
PUBLISH中：
procedure mymessage(var msg:tmsg;var handled:boolean);
实现：
procedure tform1.mymessage(var msg:tmsg;var handled:boolean);
begin
if (msg.message=wm_rbuttondown) and (msg.hwnd=flash.handle) then
begin
handled:=true;
end;
end

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #20

感谢各位大侠帮忙，高手就是多！！