2,497
社区成员
发帖
与我相关
我的任务
分享问个小问题,在点击右上角的关闭按钮时,怎么让程序弹出提示对话框,以便选把是否真的退出??谢谢了
在点击右上角的关闭按钮时,一点就直接关闭了,怎么让程序弹出提示对话框,以便选择是否真的退出??
...全文
请发表友善的回复…
发表回复
wudi_1982 2006-07-28
- 打赏
- 举报
OnCloseQuery中判断。
lizhiheng 2006-07-28
- 打赏
- 举报
我在OnCloseQuery里写代码了
if
Application.MessageBox('你真的想退出本系统吗?','提示',MB_OKCANCEL)=IDOK then
CanClose:=true
else
CanClose:=False;
这样就OK了,呵呵,多谢几位的指点:)
if
Application.MessageBox('你真的想退出本系统吗?','提示',MB_OKCANCEL)=IDOK then
CanClose:=true
else
CanClose:=False;
这样就OK了,呵呵,多谢几位的指点:)
JB7 2006-07-28
- 打赏
- 举报
步青去说得对．
janezjtjdx 2006-07-28
- 打赏
- 举报
在窗体中的OnClose事件中写代码,
if MessageDlg('您确定要退出吗?', mtconfirmation, [mbyes, mbno], 0) = mryes then
Action :=caFree
else Action :=caNone;
if MessageDlg('您确定要退出吗?', mtconfirmation, [mbyes, mbno], 0) = mryes then
Action :=caFree
else Action :=caNone;
bigfoot 2006-07-28
- 打赏
- 举报
OnCloseQuery
andyzhou1101 2006-07-27
- 打赏
- 举报
procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_no then
Abort;
end;
begin
if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_no then
Abort;
end;
仙侣步惊云 2006-07-27
- 打赏
- 举报
在OnCloseQuery中写代码
