TTrackBar对TShockwareFlash播放控件与进度同步(Delphi)

在Delphi中，使用TShockwareFlash控件时，希望对其进行播放进度控制，即，可以拖动播放，像视频播放软件的控制条一样。在这里可以使用TTrackBar控件实现。而问题在于，如何才能让TrackBar的位置与Flash的播放同步呢，因为TShockwareFlash控件中，没有帧改变的事件，设想其有FrameChange之类的事件，但没有。这里可以采用一个比较傻瓜的办法，就是采用Timer控件，在Shockware播放的同时，开启计时器，设定一定时间，让TrackBar的进度位置与Shockware的帧同步。具体实现代码如下：

//Flash开始播放时
shckwvflshTest.Movie := Test.swf;
//获取当前播放Flash的总帧数和当前播放的帧,将其设置为TrackBar的总长度
trckbrFlashProgress1.Min := 0;
trckbrFlashProgress1.Max := shckwvflshTest.TotalFrames;
//让记时器开始,计时器初始时Enable设为False
tmrTestFlash.Enabled:=True;

//拖动TrackBar时，让Flash前进或后退
procedure TfrmOSTeacherMain.trckbrFlashProgress1Change(Sender: TObject);
var
  gotoFrame: Integer;//前进到的帧
begin
  //Flash播放前进到相应帧
  gotoFrame := trckbrFlashProgress1.Position;
  shckwvflshTest.GotoFrame(gotoFrame);//跳到相应的帧
  shckwvflshTest.Play();//继续播放
end;

//TrackBar跟着Flash播放步进
procedure TfrmOSTeacherMain.tmrTestFlashTimer(Sender: TObject);
begin
  trckbrFlashProgress1.Position := shckwvflshTest.FrameNum;//TrackBar进度位置设为Shockware当前帧
end;

OK，功能完成。