播放器进度条

[yydyyd3]

有人能知道这段代码大概是干什么的么?
这是播放器里面的一段代码.
我只能看明白大概是播放进度的,但是TrackBar_play.Position * 1000和Mediaplayer1.Position div 1000这2句我看不懂.
成都-风(25156647) 10:12:44
还望高手指教一下
procedure TFormMain.TrackBar_playChange(Sender: TObject);
begin
if (TrackBar_play.Position <> (FormFileList.Mediaplayer1.Position div 1000)) then PositionChange := True
else PositionChange := False;
if PositionChange then
with FormFileList.Mediaplayer1 do
begin
if Mode in [mpOpen, mpPlaying] then
begin
pause;
Position := TrackBar_play.Position * 1000;
Play;
end
else if mode in [mpOpen, mpPaused, mpStopped] then
begin
Position := TrackBar_play.Position * 1000;
end;
end;
end;

[yydyyd3]

Mediaplayer1.Position div 1000问题已解决,下面重点就是if.else语句里面包含的意思是什么?即如果正在播放...,否则暂停,停止就...里面代码说得什么意思???

[yydyyd3]

本问题已全部解决,还想答题的大神们可以去http://community.csdn.net/Expert/TopicView2.asp?id=5544850&datebasetype=now看看播放其中关于taction的问题

[yydyyd3]

这边分会加到那边,答对后可到这边来领取剩余的分数

[HsWong]

TrackBar_play显示Mediaplayer1的播放进度，它们的比例为1:1000。当然改变TrackBar_play的位置的同时要同步到Mediaplayer1的位置。在改变Mediaplayer1播放位置的时候，假如正在播放就暂停Pause。