如何在退出程序的时候询问是否退出,回答否就不退出? 如题:点击退出按钮后询问是否退出,回答否就不退出? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin CanClose := Application.MessageBox('是否退出系统?', '提示', MB_ICONQUESTION + MB_YESNO) = IDYES;end; procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin 设置 CanCloseend; 不需要关联的.菜单事件里写Close;就行 关于工程文件的疑问 利用delphi钩子拦截网络,并把拦截下来的网络连接导入到别的应用程序 如何在视频播放画面上显示文字?即叠加. 如何计算字符型表达式如:12+3*5/10的值,返回数值型结果13。5 关于Treeview的一个很菜的问题,请帮帮手,在线等… dock的问题 各位大侠:主细表到底如何操作好?有谁能发一个例子给我,一个窗体也好,谁给我我马上给100分,谢谢 求救二维动态数组做参数传递问题!!! 动态设置主窗体的主菜单,运行期间无效果 api资料? Delphi 7数据库程序打包(不见源文件) 关于自定义事件问题请教,急
begin
CanClose := Application.MessageBox('是否退出系统?', '提示',
MB_ICONQUESTION + MB_YESNO) = IDYES;
end;
begin
设置 CanClose
end;
菜单事件里写Close;就行