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

海天 2006-04-24 12:04:06
用什么方法可以调整Media Play 的显示大小如50%,200%等?
...全文
214 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
skynew2004 2006-05-15
  • 打赏
  • 举报
回复
用其他控件啊。
古月一刀2005 2006-04-29
  • 打赏
  • 举报
回复
用的是ActiveX WindowsMediaPlayer 还是Delphi自己的MediaPlayer?,你没说清楚,但可以
ww:=ww *2 div 3; //利用本句和下一句来改变大小
hh:=hh *2 div 3; //...
其中ww,hh是全局参数,代表播放窗口的大小.
海天 2006-04-28
  • 打赏
  • 举报
回复
是ActiveX WindowsMediaPlayer
老之 2006-04-24
  • 打赏
  • 举报
回复
用的是ActiveX WindowsMediaPlayer 还是Delphi自己的MediaPlayer?
海天 2006-04-24
  • 打赏
  • 举报
回复
mediaplayer 里面找不到display属性!!
zzwu 2006-04-24
  • 打赏
  • 举报
回复
我以前的一个软件中有这样的功能,很简单:

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是全局参数,代表播放窗口的大小.

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧