如何使窗口全屏显示？(20分)

E

eryu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #1

我想使一个窗口显示为全屏效果，应该怎样做？

 

C

cyf_00002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #2

tform1_create(sender )
with form1do
begin
left:=0;
top:=0;
width:=screen.width;
height:=screen.height;
end;

 

E

eryu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #3

tform1_create(sender )是什么意思？
这些代码应该加在程序什么地方？
谢谢 ！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

procedure TForm1.FormCreate(Sender: TObject);
begin

BorderStyle:= bsNone;
Height := screen.height;
Width := screen.width;
Position :=poScreenCenter;
FormStyle:= fsStayOnTop;
//这个一定要
end;

 

E

eryu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

如何按下Esc后关闭全屏窗口呢？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #6

设置属性：Form1.KeyPreview := true;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then
close;
end;

 

E

eryu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

接受答案了.