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

郝人(好人) 2003-04-06 11:32:27
我安装了微软媒体播放器的ACTIVEX,后,却关不掉播放时不需要的字幕窗口了。
...全文
65 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
郝人(好人) 2003-05-07
  • 打赏
  • 举报
回复
谢谢各位,已经全面改用 Twindowmediaplayer了,即WMP9的插件实现。
ly840325 2003-05-05
  • 打赏
  • 举报
回复
跟踪条控件 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;
edwardzmj 2003-05-05
  • 打赏
  • 举报
回复
用trackbar吧
郝人(好人) 2003-05-03
  • 打赏
  • 举报
回复
我还是自己说了吧,调整一下大小,上面的就会自动没有了。
metro 2003-05-03
  • 打赏
  • 举报
回复
用panel控件和timer控件,

meidaplayer1.position:=panel1.position;
撒加的天使 2003-05-03
  • 打赏
  • 举报
回复
具体如何实现阿??可以说详细点吗??
yang95801 2003-05-02
  • 打赏
  • 举报
回复
可以?
不过要写代码?
Erice 2003-04-29
  • 打赏
  • 举报
回复
可以!

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧