每次启动新的动画前,应用以下过程
destoryflash;
initlize(showpanel);
procedure tdemo.destoryflash;
var
vara:integer;
begin
for vara:=0 to self.ComponentCount-1 do
if (self.Components[vara] is tshockwaveflash) then
(self.Components[vara] as tshockwaveflash).free;
end;
procedure tdemo.initlize(vpanel: tpanel);
begin
myflash:=tshockwaveflash.create(self);
myflash.parent:=vpanel;
myflash.BGColor:='-1';
myflash.Height:=vpanel.Height;
myflash.Width:=vpanel.Width;
myflash.SetFocus;
end;
我是让控件的父为一个PANEL。道理就是这样的。