var
i:integer
begin
i:=Application.MessageBox('Exit?','no',MB_OKCANCEL +MB_DEFBUTTON1)
if i= idok then
your statement
else if i=idcancel then
your statement
end;
i:integer
begin
i:=Application.MessageBox('Exit?','no',MB_OKCANCEL +MB_DEFBUTTON1)
if i= idok then
your statement
else if i=idcancel then
your statement
end;
解决方案 »
- odac oraquery 读取nclob字段 怎么是乱码 ?
- 怎样才能快速浏览打印内存中的大量数据?
- 如何调出windows的文件夹选项!
- 第一次做一个可视控件就遇上困难,等待高手。。。
- 要在一台电脑上控制两台打印机打印,怎么办啊?
- 谁有《delphi 6 程序设计 从入门倒精通》这本书的源代码?科学出版社的,原来是台湾文魁的书 麻烦提供一下,小弟
- 如何利用程序注册ocx
- 急!如何在代码中设置QuickRep(报表)的纸张类型!解决了一定重谢!
- 怎么实现将指定的文本文件导入excel指定单元格
- 如何访问Access数据库
- 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除
- 如何使放在cancas中的图的位置随窗体大小改变(始终居中)?
这样加上去就行了,MB_OKCANCEL +MB_DEFBUTTON
delete