按下面的步骤.如果你没有按装ShockwaveFlash1, 那么就要做1.-->点击Component-->选择import activxe control-->Shockwave Flash1 [verison 1.0]-->install 完成安装2.装完后想调用动画,就
with ShockwaveFlash1 do //shockwave控件名
begin
Movie:=ExtractFilePath(Application.ExeName)+'image\Movie122.swf';
Loop:=True;
ScaleMode:=0;
shockwaveflash1.BackgroundColor:=RGB(0,0,0);
WMode:='Transparent';
Play;
end;
with ShockwaveFlash1 do //shockwave控件名
begin
Movie:=ExtractFilePath(Application.ExeName)+'image\Movie122.swf';
Loop:=True;
ScaleMode:=0;
shockwaveflash1.BackgroundColor:=RGB(0,0,0);
WMode:='Transparent';
Play;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货