5.小弟初学,迷惑5,请高手帮助。 在设计的时候,我想按窗体的关闭按钮出现退出对话框,按OK按钮,退出程序,按Cancel按钮,继续程序。该程序怎么写。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if messagedlg('是否退出程,mtConfirmation,[mbYes, mbNo],0)=mrno then exitelse close;end; 在ok的button的onclick事件中些这句代码:Application.Terminate在Cancel的button的onclick事件中些你的程序要继续执行的代码就可以了。 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if MessageBox(Handle, '是否退出?' , '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then CanClose := false;end; if messagedlg('是否退出程,mtConfirmation,[mbYes, mbNo],0)=mryes then application.Terminate;end; hch_45(HCH ~ahong.net~) 的方法比较好用。 在窗体的onClose事件中:if messagedlg('是否退出?',mtInformation,[mbYes,mbNo],0)=mrNo then action:=caNone; 如何HOOK自身的系统API? 事务写法 请问怎么调用button函数啊? 多谢XDJM 怎样做鼠标移动,离开图片框,图片变化? 如何解决此问题? 急求助!490分全部给一个人! 离开 论坛 散分【三】 请问各位,如何在连续的n个自然数中随机抽取3个不同的数? 高分!怎么把一个窗体中dbgrid的记录通过文本框传到另一个窗体的dbgrid1中呢? 如何 获取 本机的 Ip 地址 (急,在线等) 怎么取年月日?
exit
else
close;
end;
在Cancel的button的onclick事件中些你的程序要继续执行的代码就可以了。
begin
if MessageBox(Handle, '是否退出?' , '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then
CanClose := false;
end;
application.Terminate;
end;