我在tabsheet中放了shockwaveflash控件,在formcreate中写了pagecontrol的onchange事件 是调用flash的,但是为什么运行的时候第一个tabsheet只是显示shockwaveflash而不显示动画呢?为什么?代码如下:
procedure TForm1.FormCreate(Sender: TObject);
var
tabsheet: Ttabsheet;
i:integer;
begin
windowsmediaplayer1.Visible:=false;
for i:=1 to 4 do
begin
tabsheet:=Ttabsheet.Create(self);
tabsheet.PageControl:=pagecontrol1;
tabsheet.Name:='tabsheet'+inttostr(i);
tabsheet.caption:='begin'+inttostr(i);
end;
end;procedure TForm1.PageControl1Change(Sender: TObject);
begin
case pagecontrol1.activepageindex of
0:begin
shockwaveflash1.Movie:=course\1\lst\xlrw.swf';
shockwaveflash1.Play;
end;
1:begin
shockwaveflash1.Movie:='course\1\lst\sgtst.swf';
end;
2:begin
shockwaveflash1.Movie:=course\1\lst\kkn.swf';
end;
3:begin
shockwaveflash1.Movie:=course\1\lst\lyl.swf';
end;
end;
end;
shockwaveflash的路径都是对的,只是运行时候不显示动画,高手帮帮忙!
procedure TForm1.FormCreate(Sender: TObject);
var
tabsheet: Ttabsheet;
i:integer;
begin
windowsmediaplayer1.Visible:=false;
for i:=1 to 4 do
begin
tabsheet:=Ttabsheet.Create(self);
tabsheet.PageControl:=pagecontrol1;
tabsheet.Name:='tabsheet'+inttostr(i);
tabsheet.caption:='begin'+inttostr(i);
end;
end;procedure TForm1.PageControl1Change(Sender: TObject);
begin
case pagecontrol1.activepageindex of
0:begin
shockwaveflash1.Movie:=course\1\lst\xlrw.swf';
shockwaveflash1.Play;
end;
1:begin
shockwaveflash1.Movie:='course\1\lst\sgtst.swf';
end;
2:begin
shockwaveflash1.Movie:=course\1\lst\kkn.swf';
end;
3:begin
shockwaveflash1.Movie:=course\1\lst\lyl.swf';
end;
end;
end;
shockwaveflash的路径都是对的,只是运行时候不显示动画,高手帮帮忙!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货