百科知识

电脑/网络

delphi怎样在关闭程序时弹出窗口？我想在关闭delphi编译

2007-03-25 13:21:45时***
我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出delphi怎样在关闭程序时弹出窗口？我想在关闭delphi编译的程序时，弹出“您是否确实要退出的窗口”点击否不退出，是退出：在主窗体的CloseQuery事件?

最佳回答

  • 在主窗体的CloseQuery事件里，使用messagebox进行提示，根据选择的按钮对Canclose进行设置就可以了 如 begin if messagebox(handle, '是否退出程序', '提示', MB_YESNO ) = IDNO then Canclose = False; end;
    2007-03-26 18:35:53
  • 楼上说的对.当窗体关闭的时候FormCloseQuery这个时间可以通过参数 canclose来控制窗口是否关闭.
    2007-03-27 10:50:35
  • 详细代码:procedureTunFDataCol.FormCloseQuery( :Boolean);beginCanClose:=False;ifMessageDlg('Areyousuretoclosetheprogram?',mtConfirmation,[mbYES,mbNO],0)=mrYesthenbeginCanClose:=True;end;end;
    2007-03-26 19:40:04
    • 很赞哦！ (163)

    相关文章