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博客 ” ，链接：https://blog.itpub.net/729024/viewspace-564822/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
设置系统用户路径
请登录后发表评论
登录
全部评论
