请问怎样用代码实现界面的全屏？(100分)

B

board

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #1

我做了一个flash播放器，基本功能已经实现，现在我像添加一个button
当点击这个button的时候，界面就像flashplayer一样全屏显示。
请问该怎么实现？
另外，实现上述功能以后，如果我想设定‘ctrl + f’就直接全屏了，请问代码该怎么写？
谢谢！

 

强

强@子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #2

Align:=alClient;
RegisterHotKey;

 

B

board

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #3

能详细一点嘛？

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #4

也可如下
Form的KeyPreview设为True，在Form的KeyDown写入代码

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if (ssCtrl in Shift) and (Key = $46) then

begin

Align:=alClient;
end;

end;

 

C

cgh1970

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #5

up

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #6

alClient仅仅使用于Image,Panel等,但是按钮的位置,大小等还是要自己编程
再次设置的.

 

W

ww20000309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #7

procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if (ssCtrl in Shift) and (Key = $46) then

begin

form1.width:=screen.width;
form2.width:=screen.height;
Align:=alClient;
end;

end;

 

M

maplesw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-19

• #8

button的onclick事件调用上面的formkeydown事件，
还要设button与屏幕的相对位置，
在anchor属性里设top button left right

 

S

sky2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #9

你先看看这个效果如何？
http://www.playicq.com/dispdoc.php?t=27&id=1775

 

B

board

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #10

对啊,就是我想要的实现功能
可是没有源代码啊

 

S

sky2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #11

那是我的作品
想要源码请和我联系
skysondy@163.com

 

B

board

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #12

sky2008,我给你发mail了
谢谢

 

独

独帅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #13

想实现全屏还不简单？只要设置下面的参数就可以了：
BorderStyle := bsNone;
WindowState := wsMaximized;

 

独

独帅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-09

• #14

//如果我想设定‘ctrl + f’就直接全屏了，请问代码该怎么写？
1、首先
Form1.KeyPreview := True;
2、然后
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin

if (Key = Ord('F')) and (ssCtrl in Shift) then

begin

BorderStyle := bsNone;
WindowState := wsMaximized;
end;

end;

 

笑

笑面虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #15

To sky2008 能否给在下一分您的那个源码?
mailto:hotkyo2000@163.com

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #16

既然是全屏用热键（或快捷键）实现比较好

Form.Borderstyle:=bsNone;
Form.WindowState:=wsMaximized;
Form.Flash.align:=alClient;

 

D

dhsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #17

to sky2008也请给我发一个源码,谢谢了,flashbw@163.com

 

L

luky_99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #18

[8D][]

 

B

board

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-28

• #19

接受答案了.