主题:关于用Animate控件播放AVI动画的问题
以下是一个窗体初始化时调用AVI动画的代码:
procedure TForm1.FormCreate(Sender:TObject);
begin
Application.CreateForm(Tjzct,jzct);
jzct.showmodal;
jzct.free;
Animate1.FileName := ExtractFilePath(Application.ExeName)+'avi\zybiao.avi';//第六行
Anaimate1.Active := true;
end;
为什么当我在运行时,它执行到第6行就提示无法打开AVI(can not open AVI) 那个flash 插件我也装了,也引用了弄不明白,望高手指点!!!
procedure TForm1.FormCreate(Sender:TObject);
begin
Application.CreateForm(Tjzct,jzct);
jzct.showmodal;
jzct.free;
Animate1.FileName := ExtractFilePath(Application.ExeName)+'avi\zybiao.avi';//第六行
Anaimate1.Active := true;
end;
为什么当我在运行时,它执行到第6行就提示无法打开AVI(can not open AVI) 那个flash 插件我也装了,也引用了弄不明白,望高手指点!!!