ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 是否要退出本系統

是否要退出本系統

原创 Linux操作系统 作者:zaorv 时间:2019-05-04 10:39:04 0 删除 编辑

procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(0,'是否要退出本系統?','揭示信息',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
Application.Terminate;
end
else
begin
Action := caNone;
end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564822/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    192
  • 访问量
    144816