关于窗体的关闭按钮?(50分)

D

dduge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #1

如何将窗体设为没有关闭按钮，如果将窗体的Bordericons下biSystemmenu设
为False，虽然没有了关闭按钮，但窗体左上角的图标也没有了，如何使窗体没
有关闭按钮但又有图标呢？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #2

下面函数可以使"关闭"按钮失效:
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #3

有一个可以在标题栏上加按钮的控件，你可以试一下。请到
http://202.103.176.81/frun/shangrw/下载.

 

P

pxlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #4

从没注意过这个问题。
不过，
等会儿试试CAkk的方法。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #5

啊, 来晚了, 给你加个右廓号
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED)
注意biSystemmenu=true;

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #6

EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED)

如何让它有效呢??下面!!
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_enabled)

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #7

呵呵,那我也补充一下:
为了防止用户按alt+f4关闭窗口,你必须在Form的CloseQuery事件中
canclose:=false;

以后,当你自己想关闭该窗口时,只要
form1.onCloseQuery:=nil;
close;

即可.

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-19

• #8

 

R

raphaelzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-24

• #9

响应Form的OnClose也可以:
Action := caNone;
OR
Action := caClose;

 

阿

阿蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-24

• #10

@-)

 

D

dduge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-28

• #11

多人接受答案了。