Q&A

  • 미디어플레이의 재생기에서. 오류가....
다음 소스에서. 플레이의 시간이. 증가할때 마다. 범추다 다시 시작 하구 그러네요.

무엇이 잘못됐는지 잘몰겠어요... 소스는 다음과 같습니다.

좋은 답변을 부탁합니다.

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;

1  COMMENTS
  • Profile
    플러스 2001.02.19 21:16
    trackbar의 change이벤트에 넣지 마시고..

    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;