动态创建TWindowsMediaPlayer时遇到的问题

[nowfox]

这节源码如下：
procedure TForm1.btnCreateClick(Sender: TObject);
var
wmpMain:TWindowsMediaPlayer;
begin
wmpMain:=TWindowsMediaPlayer.Create(Self);
wmpMain.Width:=500;
wmpMain.Height:=400;
InsertControl(wmpMain);
end;

－－－－－－－－－－－
不管我如何设置宽度高度，显示的时候总是一个固定大小。
动态创建完毕后如果该小wmpMain的大小，就显示一部分，郁闷中，求解

[wudi_1982]

wmpMain.parent:=form1;

试试这个。

[wudi_1982]

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

[nowfox]

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

[老之]

正确做法是将InsertControl(wmpMain);放在wmpMain.Width:=500;之前.
但可能会出现刷新不过来的情况，我在D7下就会出现这样的情况，在D2006下就没有问题，估计是控件的问题。

http://community.csdn.net/Expert/topic/4453/4453441.xml?temp=.8050348

[nowfox]

正确做法是将InsertControl(wmpMain);放在wmpMain.Width:=500;之前.
------------------------
我这样也试过

现在解决了，把uiMode设为none就可以了，这样就没有状态条，不过也没更好的办法了
先这样吧