关于网友提出的“ 高分求教:程序关闭的处理和多层运用”问题疑问，本网通过在网上对“ 高分求教:程序关闭的处理和多层运用”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 高分求教:程序关闭的处理和多层运用
描述: 大家都知道通常主程序的界面上都有最大化,最小化和关闭按钮,当点关闭按钮时程序就被关闭,现在我要求点关闭按钮时弹出一个提示框,有'退出系统'和'取消'两个按钮,点第一个按钮时退出,点第二个按钮时返回系统,请问这该如何做?
我在写一个多层应用程序时客户端出现这种情况:有几条记录我无法删除,但新添加的记录也不能删除,后来用InterBase6.0 打开该表强制删除那几条记录后就可以在客户端进行添加和删除了,请问这到底是怎么回事啊!哪位高手能帮我啊?
解决方案1: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Rslt:= MessageDlg('是否退出', mtConfirmation, [mbYes,mbNO], 0);
case Rslt of
3:
begin
canclose:=true;
end;
4:
begin
canclose:=false;
end;
end;
解决方案2: 同意楼上
解决方案3: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('您确实要退出吗？','提示',MB_OKCANCEL + MB_ICONSTOP) = MRCancel then
begin
CanClose := false;
end;
end;
解决方案4: No.1:
if Application.MessageBox('您确实要限出吗？请确定','提示',MB_OKCANCEL + MB_ICONSTOP) = MROK then
begin
//....处理一些东西；
Close;
end;
or
if MessageBox(Handle,'您确实要限出吗？请确定','提示',MB_OKCANCEL + MB_ICONSTOP) = MROK then
begin
//....处理一些东西；
Close;
end;
No.2: 没看懂什么意思。
解决方案5: No.1:
if Application.MessageBox('您确实要限出吗？请确定','提示',MB_OKCANCEL + MB_ICONSTOP) = MROK then
begin
//....处理一些东西；
Close;
end;
No.2:试着将唯一标识符也一同的下载到客户端。 Key.
---------------------
沉沦中......
以上介绍了“ 高分求教:程序关闭的处理和多层运用”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3759582.html
