动态创建TWindowsMediaPlayer时遇到的问题

Question

这节源码如下：
procedure TForm1.btnCreateClick(Sender: TObject);
var
  wmpMain:TWindowsMediaPlayer;
begin
  wmpMain:=TWindowsMediaPlayer.Create(Self);
  wmpMain.Width:=500;
  wmpMain.Height:=400;
  InsertControl(wmpMain);
end;－－－－－－－－－－－
不管我如何设置宽度高度，显示的时候总是一个固定大小。
动态创建完毕后如果该小wmpMain的大小，就显示一部分，郁闷中，求解

Answer 1

procedure TForm1.btnCreateClick(Sender: TObject);
var
  wmpMain:TWindowsMediaPlayer;
begin
  wmpMain:=TWindowsMediaPlayer.Create(Self);
  wmpMain.Width:=500;
  wmpMain.Height:=400;
  wmpMain.parent:=form1;
end;

Answer 2

一样不管用
并且这个初始大小要比我这个流媒体文件的图像大小要小，
一播放，MediaPlayer就自动拉大了，成了我的流媒体文件图像大小，我设置了stretchToFit:=false也不管用。

Answer 3

正确做法是将InsertControl(wmpMain);放在wmpMain.Width:=500;之前.
但可能会出现刷新不过来的情况，我在D7下就会出现这样的情况，在D2006下就没有问题，估计是控件的问题。http://community.csdn.net/Expert/topic/4453/4453441.xml?temp=.8050348

Answer 4

正确做法是将InsertControl(wmpMain);放在wmpMain.Width:=500;之前.
------------------------
我这样也试过现在解决了，把uiMode设为none就可以了，这样就没有状态条，不过也没更好的办法了
先这样吧