Question

delphi问题，我想设置一个退出按钮，不知道怎么弄

就是程序运行后弹出问你是否要退出的对话框，点“是”的话退出，“否”的话保持不变，部分代码如下

麻烦帮我解决一下点否保持不变的那一部分代码怎么写

Answer 1

您好,写在formclose事件里面.

if Application.MessageBox('是否退出程序', '提示', MB_YESNO)=ID_YES then
begin
close;
end
else
begin
Action := caNone;
end;

追问

不懂，fromclose事件在哪，新手原谅

追答

在窗体事情里面哦,不懂可以加我Q,我给你详细讲.
2537008191

Answer 2

"保持不变"是什么意思？你现在的写法点“否”就是对话框关闭，其他什么也不会发生啊。

追问

点否的话直接退出程序了

追答

是你代码写的问题，“if Application.MessageBox('是否退出程序', '提示', MB_YESNO)=ID_YES then;” 行尾的分号“;”去掉就可以了。