程式關閉前的提醒 |
答題得分者是:zhouying82
|
lovemari
中階會員 ![]() ![]() ![]() 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
luowy651
高階會員 ![]() ![]() ![]() ![]() 發表:257 回覆:313 積分:114 註冊:2003-04-09 發送簡訊給我 |
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
其实很简单的啊,你可以这么写
[code delphi] procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageBox(handle,'真的要退出系统 吗?','退出系统',MB_YESNO MB_ICONQUESTION)=id_yes then begin application.Terminate; end else begin abort; end; end; [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
yang1217
一般會員 ![]() ![]() 發表:2 回覆:5 積分:1 註冊:2008-02-07 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |