在BCB中轻松使用ActiveX控件

　　void __fastcall TFrmMyPlayer::btnReOpenClick(TObject *Sender)
{
　　　　 if(odgRealplay->Execute())
　　　　 {
　　　　　　　　 int n,i;
　　　　　　　　 n=StrToInt(InputBox("播放次数","你想播放多少次呢？","2"));
　　　　　　　　　　　　 if(n<1)
　　　　　　　　　　　　 {
　　　　　　　　　　　　 ShowMessage("次数必须为正整数！");
　　　　　　　　　　　　 return;
　　　　　　　　　　　　 }
　　　　　　　　　　　　 radMyPlayer->Source=odgRealplay->FileName;
　　　　　　　　　　　　 for(i=1;i<=n;i++)
　　　　　　　　　　　　 {
　　　　　　　　　　　　 radMyPlayer->DoPlay();
　　　　　　　　　　　　 ShowMessage(IntToStr(i));//用来测试是否循环有问题，测试后应该把这个语句去掉
　　　　　　　　　　　　 }
　　　　 }

　　无论如何也不能循环，我想问题可能出现在DoPlay()上了，可能她里面有一个跳出程序的语句（return——我觉得应该是她），直接跳出循环，因为我也不清楚DoPlay()的原码是什么，或许不是这样，是我的程序有些问题，还请大家指教，互相学习吗：）

　　没办法ActiveX控件就得靠我们自己学习，有什么办法呢？但到是让我学习到了很多东西，其实从中也能更好的学习BCB的其它组件了，因为还是有一些共性的。

　　无论如何我觉得ActiveX控件给我们的编程带来很多的方便，不防你也按照上面的方法做一个属于你自己的Media Player9，感受一下快乐带给你的一切：P

　　------------------

　　作者:ch_builder

　　信箱:ch_builder@163.com

　　QQ:116001522