急！！！屏蔽关闭按纽‘Ｘ’后，如何关闭窗体？(20分)

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #1

to 各位高手：
屏蔽form上的关闭按纽‘Ｘ’后。
在form.onclose中加入close后
不能关闭窗体。
我不想用application.Terminate结束
程序，只想关闭被屏蔽关闭按纽‘Ｘ
的窗体。请问如何实现。
请各位高手关照一下！
：））

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #2

当然用Alt+F4了,如果是MDI子窗体用Ctrl+F4

 

S

superchicken

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #3

倒!用 free 不行吗？

 

D

delphi浪客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #4

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
试试看

 

W

wwolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #5

放一个button在窗体上，在onclick事件里写
close;

 

P

pipo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #6

你怎么屏蔽的？

 

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #7

to pipo:
form.onclose中加入
Abort;
还有
form.onclosequery中加入
CanClose := False;
我通过以上方法屏蔽的‘Ｘ’

to everyone:
Action := caFree;
没有彻底关闭窗体。

多谢各位了：））

 

A

Admy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #8

你究竟要什么？你想让用户可以关闭窗口，还是不准用户关闭窗口？
如果允许用户关闭，你准备让用户用何种方式关闭？

如果是按钮，就在按钮的onclick事件中加上下一句就成了：
close;

form.onclose中就不要写东西了。
（如果你的窗口是MDI子窗口，就按“delphi浪客”的方式加一句吧）

 

A

Admy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #9

把form.onclosequery中的东西也去掉，不然的话你到明年也关不掉这个窗口

 

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #10

to Admy:
1) 我所指的非mdiforms.
2) 我只想让用户，按取消按纽（button or bitbtn）
关闭窗体,不想用‘Ｘ’.
难道没有解决办法实现吗？
　各位高手来关照一下吗。
：）

 

A

Advanture

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #11

使用cascade;
即form1.button1clink(sender:Tobject)
begin
cascade;
end;
也可以用与右键菜单哦！

 

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #12

to Amdy:
大哥啊！你别吓我，真的没有办法实现我的想法吗？
　：＜

 

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #13

to Advanture:
我试过了，真的还是关不掉。
　难道真的没有办法了吗？

 

P

ParisHistory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #14

to ysai:
Ctrl+F4和Alt+F4也失效了：＜

 

R

reallike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #15

哈哈，笨人。

换个思路，你不会隐藏么？

visible := false;

整个程序结束就一起destroy.

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #16

这个太简单了啊，各位都昏了头，没想到过程是可以改的； ：）
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.OnClose:=nil;
form1.OnClosequery:=nil;
close;
end;

w2k + d5通过。

动态改变onclose和onclosequery，
form出来时加上onclose和onclosequery。
在你的关闭按钮onclick中
将你的onclose和onclosequery过程去掉。
就可以关闭了。



---》》》
form.onclose中加入
Abort;
还有
form.onclosequery中加入
CanClose := False;
---》》》

 

A

Advanture

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #17

你可以增加一个右键菜单啊。然后添加cilck事件啊。close;试试 吧可以的！

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #18

在按钮中写 form1.close;
然后在form1的onclose事件中写 form1.release;