Y ygd Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #1 我想用一个flash Shockwave空件播一个flash 并要在一个事件激发是使其停止 而播另一个flash东画 怎么办!
K kycheung Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #4 flash Shockwave 中自帶的,有裝入,就有清除啦,你找找
若 若水三千 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #6 在Form1中放入一个ShockwaveFlash控件--name:ShockwaveFlash1。 再放一个opendialog控件比如namependialog1 再在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;
在Form1中放入一个ShockwaveFlash控件--name:ShockwaveFlash1。 再放一个opendialog控件比如namependialog1 再在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;