高分求：用MediaPlayer能不能有控制条显示？用什么控件能在播放音频文件时可以调整位置？谢谢！

Question

我安装了微软媒体播放器的ACTIVEX，后，却关不掉播放时不需要的字幕窗口了。

Answer 1

用panel控件和timer控件，
 
meidaplayer1.position:=panel1.position;

Answer 2

跟踪条控件  TrackBar
   先放入一个对象连接器控件OleContainer1,在SizeMode中选smStretch
   
   跟踪条中TickStyle选tsAuto   计时器代码
      procedure TForm1.timer1timer(sender:tobject);
      begin 
        trackbar1.position:=mediaplayer1.position;
        trackbar1.min:=0;
        trackbar1.max:=mediaplayer1.length;
      end;
   打开文件代码
      procedure tform1.speedbutton1click(sender:tobject);
      begin
        opendialog1.execute;
        mediaplayer1.filename:=opendialog1.filename;
        mediaplayer1.autoopen:=true;
      end;
=======================================================================================               进程条控件ProgressBar
      
      进程计时代码
      procedure TForm1.timer1timer(sender:tobject);
      begin  
        progressbar1.max:=mediaplayer1.length;
        progressbar1.position:=mediaplayer1.position;
      end;

Answer 3

谢谢各位，已经全面改用 Twindowmediaplayer了，即WMP9的插件实现。