怎样动态调整 Media Play 控件的显示大小?

[海天]

用什么方法可以调整Media Play 的显示大小如50%,200%等?

[zzwu]

我以前的一个软件中有这样的功能,很简单:

procedure TForm1.SpeedButton7Click(Sender: TObject);
var l,t:integer;
begin
ww:=ww *2 div 3; //利用本句和下一句来改变大小
hh:=hh *2 div 3; //...
l:=(form1.width-ww) div 2;
t:=(form1.height-hh) div 2;
form1.color:=clblack;
mediaplayer1.display:=Form1;
mediaplayer1.displayRect:=Rect(l,t,ww,hh);
mediaplayer1.play;
end;

其中ww,hh是全局参数,代表播放窗口的大小.

[海天]

mediaplayer 里面找不到display属性!!

[老之]

用的是ActiveX WindowsMediaPlayer 还是Delphi自己的MediaPlayer？

[海天]

是ActiveX WindowsMediaPlayer

[古月一刀2005]

用的是ActiveX WindowsMediaPlayer 还是Delphi自己的MediaPlayer？,你没说清楚，但可以
ww:=ww *2 div 3; //利用本句和下一句来改变大小
hh:=hh *2 div 3; //...
其中ww,hh是全局参数,代表播放窗口的大小.

[skynew2004]

用其他控件啊。