发现异常如何退出？(50分)

R

rich6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #1

[!]在Form1中有一按钮，当按button的时候，弹出一个另外的Form2。
Form2在执行过程中，如果发现某个条件不满足，则自己自动关闭，为什么
在OnCreate和OnActive的事件中，Close方法都不能实现关闭功能？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

application.Terminate ;

 

R

rich6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #3

application.Terminate 不行，那样会导致Form1也关闭。

 

M

monkeyboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

如果使用的是showmodal,可以使用窗口的返回信息，如下：
form1.tbutton1onclick(sender:tobject);
begin
form2:=tform2.create(self);
form2.showmodal;
if form2.modalresult=mrok then
form2.free
else
form2.free;
end;
然后在form2需要返回的信息中加上: form2.modalresult:=mrok
就可以关闭了（实际上是free了）

 

Q

quiben

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #5

当然不行了,你应该要注意这段代码:
Application.CreateForm(TForm1, Form1);
Application.Run;
我同意monkeyboys的做法.

 

R

rich6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #6

当
form2.modalresult:=mrok
系统执行到这条语句会出现异常。

 

P

pengjinlongex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #7

你的窗口不是以showmodal显示的，所以异常

 

H

hxning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #8

在form2的事件里面，写上
try
...
except
modalresult := mrCancel //这里就可以让窗口退出
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #9

form2的except里
PostMessage(handle,WM_CLOSE,0,0)

 

R

rich6

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #10

多人接受答案了。