关于播放器全屏的问题(50分)

老

老鳖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #1

各位大虾，我是delphi新手，我在试编一个播放器的时候遇到了一个不能全屏的问题！
我想用form的clientwidth,clientheight属性实现不知道对不对？
我用的是mediaplayer1.displayrect:=(0,0,form1.clientwidth,form1.clientwidth);
form1.clientwidth:=screen.width;
form1.clientheight:=screen.height;

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #2

全屏设form1的WindowState为wsMinimized
设form1的BorderStyle为bsNone
就可以了，不用那么麻烦

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #3

No...
你的顺序反啦!
应该先设置FORM的W和H,再设置DisplayRect

 

C

commons_sheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-23

• #4

如luyear所说的，然后你在form上加一个tpanel并把它的Align属性设为alClient，然后再用
mediaplayer1.displayrect:=(0,0,panel1.clientwidth,panel1.clientheight)

 

R

rabbit1125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-25

• #5

还可以再做一个窗口，并放一个panel，设form2的WindowState为wsMaximized
然后
if MediaPlayer1.Mode:=mpPlaying then

begin

MediaPlayer1.Display:=Form2.Panel1;
MediaPlayer1.DisplayRect:=Form2.Panel1.ClientRect;
Form2.show;
end;

 

老

老鳖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-25

• #6

多人接受答案了。

 

老

老鳖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-25

• #7

谢谢各位大虾！！