小新,借用一下你的蜡笔 2019-01-07 14:21 采纳率: 100%
浏览 934
已采纳

Delphi点取消按钮退出程序

在窗体创建时就弹框提示图片说明

点确定之后程序继续执行,进入到主窗体,若点击取消则程序不再执行,直接退出程序;附现代码

procedure TForm1.FormCreate(Sender: TObject);
begin
 if Application.Messagebox('确认是否继续!', '提示',MB_Iconinformation+MB_OKCANCEL) = ID_Cancel then
begin
 Close;
end;

end;

目前的问题就是点取消之后没有退出程序,也进入到了主窗体图片说明

请各位大佬指教,谢谢

  • 写回答

1条回答 默认 最新

  • 814123 2019-01-07 16:13
    关注

    if Application.Messagebox('确认是否继续!', '提示',MB_Iconinformation+MB_OKCANCEL) = ID_Cancel then
    begin
    // Close;
    Application.Terminate; //这句是退出程序,Close只是关闭窗体。
    end;

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 GD模块安装出错,libgd无法正常安装
  • ¥20 求有缘人帮我把笛卡尔坐标系转换为经纬度 有偿
  • ¥15 vue2中使用计算属性
  • ¥50 远程桌面打开Mastercam、没有许可证、物理机打开正常
  • ¥15 ubuntu安装gdal后java读取tif文件报错
  • ¥15 请问lammps怎么做两种金属连接的原子浓度分布图
  • ¥15 求jacquard数据集
  • ¥15 w10部分软件不能联网
  • ¥15 关于安装hbase的问题(操作系统-windows)
  • ¥15 novnc连接pve虚拟机报错安全协议不支持262