S singlewolf Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #1 各位大大，我想在点击标题栏关闭窗体时，弹出一个新窗体， 这个新窗体执行的是要求备份数据库的作用，怎么做呢？类似于财智理财的那个窗口。 拜托各位了！
E edren Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #3 在form1 的CloseQuery事件中加入 Application.CreateForm(TForm,Form2); Form2.Show;
S singlewolf Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #4 谢谢！不过各位可能没懂我的意思,我的程序是这样的，一个主界面程序，当使用标题栏关 闭窗体按钮，就是那个X啦，关闭该程序时主界面暂时不能使用，弹出要求备份的窗口，当 数据库备份完之后才关闭主界面。类似于财智软件关闭时那种功能？ 你们的办法我都试过了，不行的。
谢谢！不过各位可能没懂我的意思,我的程序是这样的，一个主界面程序，当使用标题栏关 闭窗体按钮，就是那个X啦，关闭该程序时主界面暂时不能使用，弹出要求备份的窗口，当 数据库备份完之后才关闭主界面。类似于财智软件关闭时那种功能？ 你们的办法我都试过了，不行的。
S surely2008 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #6 可以用Form1.OnClose过程来捕捉.
J jobboy Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #7 对surely2008, 应该用form1.formclosequery过程捕捉
A apsu Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #8 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if Application.MessageBox('是否进行备份?','确定',MB_YESNO)=ID_YES then begin ......//在此输入备份数据库的代码 Application.Terminate; end else Application.Terminate; end; //相信可以满足你的要求
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if Application.MessageBox('是否进行备份?','确定',MB_YESNO)=ID_YES then begin ......//在此输入备份数据库的代码 Application.Terminate; end else Application.Terminate; end; //相信可以满足你的要求
S salon.w Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-11 #10 我的更简单，你的功能放在窗体里实现得了 formnew.show;//新窗体显示 formmain.enabled:=false;//主窗体不可用但我可以看到 ……
S singlewolf Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-13 #12 谢谢了，apsu提供的办法虽然不是我想象的那样，但应该说是最有效的。所以他分多点，再次谢谢各位了！ 不过，我还是希ASPU大大能提供在关闭的时候调用新窗体的办法！
