求控件！

Question

请问谁有精品一点的多媒体控件
最好具有控制左右声道、伴声模式的功能！！！
有的话请发给我[email protected]，万分感谢！！！100分不够还可再加！！！

Answer 1

用Delphi实现控制左右声道音量         一、调节全部音量        1．先在窗体中添加一个trackbar控件，可通过改变它的位置来调节音量，在trackbar1的属性中，我们把Max属性修改成255，改成这个值是为了便于进行二进制的音量调节操作。        2．为了调用一个Windows函数，在uses子句里加上Mmsystem。        3．为trackbar1的Onchange事件编写如下代码：        procedure Tform1.TrackBar1change(Sender:Tobject);        var t，v：longint；// t的最大值为8位的二进制：11111111；用v来表示音量的大小，这是个32位的整数，高16位表示右声道的音量，低16位表示左声道的音量        begin        t：=trackbar1.Position；//得到Trackbar的位置，可用这个值来表示音量的大小        v：=(t shl 8) or (t shl 24)；//将t左移8位、24位        waveoutsetvolume(0，v)；//设置音量        end；        二、分别控制两个声道的方法        1．控制左声道        procedure Tform1.TrackBar1change(Sender:Tobject);        var t，v：longint；        begin        t：=trackbar1.Position；        waveoutgetvolume(0,@v)；//@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，做到在调节左声道的时候，不改变右声道        v：=v and ＄ffff0000 or (t shl 8)；//数字前面加＄表示是十六进制数字        waveoutsetvolume(0，v)；        end；        2．控制右声道        procedure Tform1.TrackBar2change(Sender:Tobject);        var t，v：longint；//它的原理同上        begin        t：=trackbar2.Position；        waveoutgetvolume(0,@v)；        v：=v and ＄0000ffff or (t shl 24)；        waveoutsetvolume(0，v)；        end；        三、设置滑块的初始位置        1．程序开始执行时，缺省情况下，Trackbar的位置在0，但我们希望程序开始执行时，这两个滑块能自动得到当前的音量，而处在相应的位置。        procedure TForm1.FormCreate(Sender: TObject);        var v：longint；        begin        waveoutgetvolume(0,@v)；//得到现在音量        trackbar1.Position：=hi(v)；//设置左滑块的正确位置        trackbar2.Position：=hi(v shr 16)；//设置右声道滑块的正确位置        end；        注：函数hi(v)的作用为：返回一个16位无符号整数的高8位值。如果v为32位，则高16位自动被忽略了。        2．只使用高8位时，可使调节效果更明显。        3．对波形文件可以用waveoutgetvolume函数，对cd文件可以用auxgetvolume函数。        注：以上程序均在Delphi 5.0，Windows 98SE下调试通过。}  

Answer 2

如果要控件可以到;WWW.51DELPHI.COM/WWW.PLAYICQ.COM下载