有关控制flash播放新的swf文件的问题?(30分)

  • 主题发起人 主题发起人 lipingcool
  • 开始时间 开始时间
L

lipingcool

Unregistered / Unconfirmed
GUEST, unregistred user!
也就是如何清空上一个播放的swf文件,然后播放新的swf文件?
我发现ShockwaveFlash好象没有这种属性或方法!?
 
shockwaveflash1.Movie:=another.swf;
shockwaveflash1.play;

不就可以播放另一个么?
 
我一开始也是这么做了,但没有这么简单!
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShockwaveFlash1.Movie:= OpenDialog1.FileName;
end;
可是却不能调入新的SWF文件.

ShockwaveFlash1.StopPlay;
ShockwaveFlash1.FreeOnRelease;
以后也不行! 有谁能说一下呢?

 
没问题,我试过啊!

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
shockwaveflash1.Movie := opendialog1.FileName;
shockwaveflash1.Play;
end;
end;
 
最近忙着做数据库去了,这个问题就到这里了!
 
行的!!
 
这样是可以的,但是在delphi中flash.ocx这个控件的背景还是原来的背景颜色
所以我是用动态建立的,这样可以解决背景颜色文件
 
后退
顶部