我的启动界面是用的ShockwaveFlash,为什么它不会动。
原代码如下:
Application.Initialize;
form15:=Tform15.Create(form15);
form15.show;
form15.update;
delaytime:=4000;
curtime:=gettickcount;
while(gettickcount<(curtime+delaytime)) do;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TQuickReport19, QuickReport19);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm13, Form13);
Application.CreateForm(TForm14, Form14);
Application.CreateForm(TDataModule16, DataModule16);
Application.CreateForm(TForm17, Form17);
Application.CreateForm(TForm18, Form18);
Application.CreateForm(TQuickReport20, QuickReport20);
Application.CreateForm(TQuickReport21, QuickReport21);
form15.close;
form15.Free;
Application.Run;
其中FORM15是ShockwaveFlash1所在的那个FORM,请教各位大侠!!
原代码如下:
Application.Initialize;
form15:=Tform15.Create(form15);
form15.show;
form15.update;
delaytime:=4000;
curtime:=gettickcount;
while(gettickcount<(curtime+delaytime)) do;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm12, Form12);
Application.CreateForm(TQuickReport19, QuickReport19);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.CreateForm(TForm10, Form10);
Application.CreateForm(TForm11, Form11);
Application.CreateForm(TForm13, Form13);
Application.CreateForm(TForm14, Form14);
Application.CreateForm(TDataModule16, DataModule16);
Application.CreateForm(TForm17, Form17);
Application.CreateForm(TForm18, Form18);
Application.CreateForm(TQuickReport20, QuickReport20);
Application.CreateForm(TQuickReport21, QuickReport21);
form15.close;
form15.Free;
Application.Run;
其中FORM15是ShockwaveFlash1所在的那个FORM,请教各位大侠!!
ShockwaveFlash1.play;