问一个很弱的问题。在线急等。

[smallflaybird]

在主窗品的closequery事件中写入
if MessageDlg('退出?',mtInformation,[mbOK,mbCancel],0) = mrOK then
CanClose := True
else
CanClose := False;
现在程序中如果触发异常我希望直接就关闭窗口。不再让他弹出该死的对话框如何解决？

[outer2000]

try
except
end;

[Snakeguo]

if MessageDlg('退出?',mtInformation,[mbOK,mbCancel],0) = mrOK then
CanClose := True
else
CanClose := False;

将以上代码写成一个独立的过程(proc1)并从主窗口的closequery事件中清除,然后在try...except中嵌套以下代码:
主窗口.onclosequery := proc1;

[Snakeguo]

if MessageDlg('退出?',mtInformation,[mbOK,mbCancel],0) = mrOK then
CanClose := True
else
CanClose := False;

将以上代码写成一个独立的过程(proc1)并从主窗口的closequery事件中清除,然后在try...except中嵌套以下代码:
主窗口.onclosequery := proc1;

[smallflaybird]

不是指try语句。。。。我是说。。。比如我在联接网络数据库时。如果发生了异常无法联接的话。我希望直接的就退出程序。。。。也就是把主窗口退出。

[smallflaybird]

已经解决了。。。
加入一句。。。至少我试了是行的。。。-_-!辛苦大家了。。。
Application.Terminate