如何改变媒体播放器的大小?(100分)

我从project/import type library导入媒体播放器9,在程序中不知怎样改变它的大小

你要的是不是这样？？
在要播放的窗口上放一个panel 控件,
设置它的 active 为 client,
将mediaplayer的display属性设置播放窗口上的 panel.

将panel的双击事件加下我上面的哪段代码即可.
要恢复原来的窗口,只要改为 :

form1.WindowState:=normal;
//显示 任务栏
strcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,SW_SHOW);
//显示窗口的标题栏
setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (WS_CAPTION));


如果将这两段代码加一个开关标识,当双击一次就全屏,再双
击一次又恢复原窗口,这样就可以像解霸一样播放 mpeg了.

我是直接在窗体上放播放器9,不是Delphi自带的.

你所谓的大小是什么意思？？？

现在的情况是,播放器的Align设为alClient,窗体正常显示时好的,我把窗体拖大一点后,
播放器没有跟着变大.

Form1.ActiveControl := nil;
Form1.ActiveControl := 播放器;

多人接受答案了。