H hbolive Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-28 #1 怎样在Delphi中嵌入flash动画，最好是在一个Form中嵌入，最坏的办法是启动一个Flash的exe 文件。。。请问各位大虾，，如何实现？？？多谢！！
余 余六 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-28 #2 使用ActiveX控件,Import Activx Control.... 不过你发布你程序的时候最好连此OCX一起发布并注册，以免目标机上没有此Activx控件
少 少爷的拐杖 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-28 #3 控件的名字是 ShockwaveFlash（ver1.0） 我机子上是FLASH 5 和 DELPHI5
B barton Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-28 #4 各位： 我用过，发现不好搞。事件太少。播放完重放前没有事件触发。 我想用它写一个屏保，但不知道如何捕捉它的已播放完事件，否则总是循环放。 OnProgress,OnReadyStateChange均无效。
各位： 我用过，发现不好搞。事件太少。播放完重放前没有事件触发。 我想用它写一个屏保，但不知道如何捕捉它的已播放完事件，否则总是循环放。 OnProgress,OnReadyStateChange均无效。
I ipec Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #6 Why not use VB to your development ?
X xiao_min Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #7 win2k的“/system32/Macromed/Flash”中有swflash.ocx 98的是在“/system/Macromed/Flash”中 regsvr32 它，再在DELPHI5中Import Activx Control->选中->INSTALL 然后在ACTIVEX控件栏中就有FLASH了 用TIMER比较当前帧与总帧数，是不是就可以判断是否已经放完
win2k的“/system32/Macromed/Flash”中有swflash.ocx 98的是在“/system/Macromed/Flash”中 regsvr32 它，再在DELPHI5中Import Activx Control->选中->INSTALL 然后在ACTIVEX控件栏中就有FLASH了 用TIMER比较当前帧与总帧数，是不是就可以判断是否已经放完
M maoke Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #8 同意xiao_min。 我再补充一点： 在delphi的Import Activx Control中该控件的名称叫： Shockwave Flash[version 1.0] install它即可。
初 初学者1 Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #9 按楼上的各位大侠的方法注册就ok shockwaveflash1.movie:='d:/flash.swf'; 最坏的办法是启动一个Flash的exe文件。。。》》 why？ 另外问一下，如何把swf变为exe，有人告诉我另存为exe可不行
按楼上的各位大侠的方法注册就ok shockwaveflash1.movie:='d:/flash.swf'; 最坏的办法是启动一个Flash的exe文件。。。》》 why？ 另外问一下，如何把swf变为exe，有人告诉我另存为exe可不行
X xiao_min Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-06 #10 用FLASHPLA就可以了，在FILE菜单里，CREATE PROJECTOR。。。
T Traveller Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-07 #11 我的form嵌入这个控件之后，控件调大小的时候里面的动画不会随之调整，不知道有谁遇到过类似的情况吗？
X xiao_min Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-07 #12 设置Alignment procedure TForm1.Button1Click(Sender: TObject); begin sendmessage(flash.handle,wm_lbuttondown,0,0); sendmessage(flash.handle,wm_lbuttonup,0,0); end; procedure TForm1.FormResize(Sender: TObject); begin sendmessage(button1.handle,wm_keydown,vk_space,1); sendmessage(button1.handle,wm_keyup,vk_space,1); flash.Refresh end; 可以让FLASH变大小，可以速度不如FLASHPLA快
设置Alignment procedure TForm1.Button1Click(Sender: TObject); begin sendmessage(flash.handle,wm_lbuttondown,0,0); sendmessage(flash.handle,wm_lbuttonup,0,0); end; procedure TForm1.FormResize(Sender: TObject); begin sendmessage(button1.handle,wm_keydown,vk_space,1); sendmessage(button1.handle,wm_keyup,vk_space,1); flash.Refresh end; 可以让FLASH变大小，可以速度不如FLASHPLA快
