怎么样才能TrackBar 的进度保持和FLASH播放的同步

Question

怎么样 才能使 TrackBar 的进度保持和FLASH播放的同步
我用Timer 来控制 画面和声音都不流畅。
 谁能给个用线程来实现的。。：） 谢谢

Answer 1

我的线程好象没有用。进度条还是不走//*************************************************************
 type
  TFlashPos = class(TThread)
  MyTrackBar: TTrackBar ;
  MyFlash: TShockwaveFlash;
  constructor create(byMyTrackBar: TTrackBar;byMyFlash: TShockwaveFlash);
  procedure jingdu;
  procedure Execute; override;
  end;//*******************************************************************
constructor TFlashPos.create(byMyTrackBar: TTrackBar;
  byMyFlash: TShockwaveFlash);
begin
  MyTrackBar:= byMyTrackBar;
  MyFlash:=byMyFlash;
  FreeOnTerminate := true;end;//**************************************************************************
procedure TFlashPos.Execute;
begin
  inherited;
  Synchronize(jingdu);
end;//*****************************************************************主函数
procedure mydu;
var
 i,max:integer;
begin
    max :=  Form1.ShockwaveFlash1.TotalFrames;
    if  Form1.TrackBar1.Position < max then
     Form1.TrackBar1.Position:=Form1.ShockwaveFlash1.CurrentFrame;end;
       创建这个我只为创建线程
//*************************************************procedure TFlashPos.jingdu;
begin
  MyTrackBar.Position := MyFlash.CurrentFrame;
end;//********************************************** 因为对线程的使用还是一知半解的。希望有人能指导下。谢谢

Answer 2

厉害，还不会用DELPHI的线程，过来学习学习