在主窗体的CloseQuery事件里,使用messagebox进行提示,根据选择的按钮对Canclose进行设置就可以了
如
begin
if messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO then
Canclose := False;
end;
delphi 点击关闭按钮时隐藏窗口
最新推荐文章于 2021-01-26 21:43:20 发布
在主窗体的CloseQuery事件里,使用messagebox进行提示,根据选择的按钮对Canclose进行设置就可以了
如
begin
if messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO then
Canclose := False;
end;