quest在用DELPHI 的多媒体控件进行VCD放映(50分)

Q

quest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #1

在用DELPHI 的多媒体控件进行VCD放映，如何通过程序控制播放窗口的大小或使之全屏播放？(

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-15

• #2

do such things:
disp(lay?)rect(angle?) := rect(xx,xx,xx,xx);
or
panel.top := xx
...
display := panel1

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-16

• #3

去掉窗体标题
使窗体最大化
DisplayRect:=ClientRect

 

Q

qlj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-17

• #4

先让DISPLAY:=PANEL;
然后DISPALYRECT:=PANEL.CLIENTRECT;
OR DISPLAYRECT:=RECT(10,10,100,100)
最好在PANEL的RESIZE事件(还有其他事件)中也有这两句,这样在窗体大小改变或
失去焦点等时候,画面的大小依然符合你的要求

 

L

lczhuohuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-17

• #5

可以指定播放的窗口,
然后
DisplayForm.Width:=Screen.Width;
DisplayForm.Height:=Screen.Height;

 

狗

狗娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-17

• #6

听

 

Y

yardy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #7

Form1边框类型Normal，Sizeable.
Mediaplayer1.Display:=Form1;
Mediaplayer1.DisplayRect:=(0,0,Form1.ClientWidth,Form1.ClientHeight);
如果要实时改变窗口大小，在Form1.Resize属性中也可添入这些代码。
当你要全屏时，最好再建一个Form2，使它的边框类型为Max,None。
再把上述程序中的Form1改为Form2即可。

 

P

pyh_jerry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-19

• #8

我刚编了个播放器可实现用独立的窗口显示（大小任意可调），也可将显示窗口和主窗口融合和全屏播放。你可以到210。41。163。1去下载。
具体作法是：
display:=nil;//些时自动创建窗口显示
想全屏时，（在主窗口FORM1中放一个PANEL）
display:=panel;panel1.autosize:=false;form1.autosize:=true;
form1.borderstyle:=bsnone;
声明一个记录：max:trect;
panel1.left:=0;
panel1.right:=screen.width;
panel1.top:=0;
panel1.bottom:=screen.height;
max.left:=0;max.right:=screen.width;max.top:=0;max.bottom:=screen.height;
display.rect:=max;
当然也可创建一个新FORM2放一个PANEL，让DISPLAY：=FORM2。PANEL；
PANEL1。ALIGON：=ALCLIENT；
。。。
想知更多，请和我联系多加50分可以送你源代码；

 

Q

quest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-21

• #9

多人接受答案了。