如何使点击窗口的关闭按钮不退出

您所在位置：社区首页 — Delphi讨论区 — 如何使点击窗口的关闭按钮不退出

主题：如何使点击窗口的关闭按钮不退出

啄木鸟 [专家分：200] 发布于 2008-05-29 17:09:00

我们一般在点击窗口右上方的关闭按钮之后，窗口就退出了，如果我想在关闭窗口之前弹出一个窗口判断，是否要退出，如果选择不退出，窗口就不关闭，不知道该怎么写代码，不知哪位高手能帮帮忙，谢谢，非常感激！

沙发

长尾兔 [专家分：3630] 发布于 2008-05-29 20:18:00

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := Application.MessageBox('要关闭吗', '警告', 49) = mrOK;
end;

您尚未登录，请登录后再回复。点此登录或注册