谢谢。
解决方案 »
- Delphi调用Java的WebService报错
- 就这几个代码,为什么fastmm就提示我内存泄露呢?
- 急!!!!!!!!!是什么原因产生这个错误 A CALL TO AN OS FUNCTION FAILED
- 关于窗体消息拦截的问题~~
- TChart怎么这么难用啊?!
- 把Action:=false的问题?
- 毕业了,我想用delphi或pb做个数据库系统,各位以前都做些关于哪方面的系统,请指教
- ####哪里有Delphi7下载?谢谢!######
- 关于 在SQL中datetimepicker1.Date的时间的问题
- 高手请进!小弟程序最后一关了,请帮忙!!!
- 在线等待:使用SOCKET连接,当网络断开时如何触发事件发让客户端知道?
- Delphi7调用Flash控件播放时,当改变窗体大小,Flash控件不刷新,怎么解决呀?
1:在窗体上添加一个StrackBar控件、timer控件和一个标签.
2:当打开一个Flash文件时,设置StrackBar控件的属性和标签属性
ShockFlash.LoadMovie(0,FlashFile);
TrackBar1.MaxValue:=ShockFlash.TotalFrames;
Label1.Caption:='1/'+IntToStr(ShockFlash.TotalFrames);
3:在timer事件里添加
Label1.Caption:='1/'+IntToStr(ShockFlash.TotalFrames);
TrackBar1.Value:=ShockFlash.TotalFrames;
4:控制进度
在TrackBar1的Mouseup事件里添加
ShockWaveFlash.GotoFrame(TrackBar1.Value);
ShockWaveFlash.Play;其他该注意的地方,比如Timer控件什么时候有效,什么时候停止,自己考虑吧!!!
好像只能用Timer
不过有点错误。
3:在timer事件里添加
Label1.Caption:='1/'+IntToStr(ShockFlash.TotalFrames);
TrackBar1.Value:=ShockFlash.TotalFrames;
把TotalFrames改为CurrentFrame.