这样的windows如何做？(100分)

N

netpuff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #1

windows 左上角的X号如何把它变灰，不能用？
最好带例子~

 

P

pyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #2

左上角的X号?
是右上角的关闭符号吧?

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #3

是右上角吧。
》不能用
在FormCloseQuery 事件中将
CanClose:=False;

 

N

netpuff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #4

sorry 右上角的 X

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #5

同意 沈前卫！
不过这时你的程序连Ctrl+Alt+Del也关不掉了，
你可以新建一个口令对话框(用File|New|Dialog), 在OnCloseQuery的时候检查口令:
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: oolean);
begin
if PasswordDlg.ShowModal=mrOK then
if PasswordDlg.Password.text = 'netbuff' then
CanClose:=true
else
CanClose:=false;
end;
这样又可以关闭了！

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-06

• #6

用“右上角“检索已答问题。
去掉delphi编制的form窗口右上角的 X按钮
http://202.120.85.61/delphibbs/DispQ.asp?LID=125991

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-07

• #7

EnableMenuItem(GetSystemMenu(Handle,False),SC_CLOSE,MF_GRAYED);

 

X

xiangya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #8

to o*o:
得分时分我90,如何,
你太对了

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #9

xiangya,你什么意思，讲明白些好不。

 

G

guojun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #10

.

 

H

heat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #11

EnableMenuItem(GetSystemMenu(Handle,False),SC_CLOSE,MF_GRAYED);
完全正确

 

B

buptwqs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #12

来晚了一步！完全同意o*o和heat的意见
EnableMenuItem(GetSystemMenu(Handle,False),SC_CLOSE,MF_GRAYED);

 

W

wint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #13

这样跟直接在FORM的属性中去除CLOSE BUTTON有什么区别？
为什么要舍简就繁？莫非有API癖？ ：）

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-10

• #14

多人接受答案了。