다음 소스에서. 플레이의 시간이. 증가할때 마다. 범추다 다시 시작 하구 그러네요.
무엇이 잘못됐는지 잘몰겠어요... 소스는 다음과 같습니다.
좋은 답변을 부탁합니다.
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer1.stop;
MediaPlayer1.Position := TrackBar1.Position;
Timer1.Enabled := true;
Btn_Play.Enabled := false;
Btn_Stop.Enabled := true;
MediaPlayer1.Play;
end;
form create 이벤트나 버튼을 하나 생성하신다음 클릭하면 play 되게 하심 될것 같네요..
아마 될겝니다...^^;
이용준 wrote:
> 다음 소스에서. 플레이의 시간이. 증가할때 마다. 범추다 다시 시작 하구 그러네요.
> 무엇이 잘못됐는지 잘몰겠어요... 소스는 다음과 같습니다.
> 좋은 답변을 부탁합니다.
> procedure TForm1.TrackBar1Change(Sender: TObject);
> begin
> MediaPlayer1.stop;
> MediaPlayer1.Position := TrackBar1.Position;
> Timer1.Enabled := true;
> Btn_Play.Enabled := false;
> Btn_Stop.Enabled := true;
> MediaPlayer1.Play;
> end;