flash问题(100分)

  • 主题发起人 主题发起人 ygd
  • 开始时间 开始时间
Y

ygd

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用一个flash Shockwave空件播一个flash
并要在一个事件激发是使其停止
而播另一个flash东画
怎么办!
 
停止
清除
裝入另一個
播放
 
怎么清除
哪个函数?
 
flash Shockwave 中自帶的,有裝入,就有清除啦,你找找
 
loadMovie()
 
在Form1中放入一个ShockwaveFlash控件--name:ShockwaveFlash1。
再放一个opendialog控件比如name:opendialog1
再在form1中加入三个按钮,按钮事件如下:
procedure TForm1.Button1Click(Sender: TObject);
{打开并播放flash(*.swf)的按钮}
begin
if opendialog1.Execute then
ShockwaveFlash1.Movie:=opendialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
{暂停按钮}
begin
ShockwaveFlash1.Stop;
end;
procedure TForm1.Button3Click(Sender: TObject);
{播放按钮}
begin
ShockwaveFlash1.Play;
end;
 
后退
顶部