procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ... then
CanClose:=false
else
CanClose:=true;
end;
begin
if ... then
CanClose:=false
else
CanClose:=true;
end;
解决方案 »
- FrxReport打印图片
- 求Delphi程序员工作,工作一年半,(广州)
- 在线程里使用ADO连接,系统报错:尚未调用coInitialize
- intraweb文件如何下载到自己的硬盘里面?急!
- Oracle数据库,如果为其中一个字段设定了自增序列,新增记录时程序应怎样做??第一个给出例子的,将获50分。
- 关于数据导入Excel表的记录居中的问题!
- 把AdoDataset的ExecuteOptions的eoAsyncFetch设为True,程序执行后显示的数据总是少了第一条记录
- 关于定时操作的问题
- 如何动态检测是否已联网?
- 急:如何做扩展/收缩对话框
- 这个DLL错在什么地方啊?
- 负数表示方法,如:(x=-1)?
if not 关闭 then
Action := caNone;
IF 确认 THEN
CLSOE
帮忙多谢
var CanClose: Boolean);
begin
//canclose=true 则关闭窗口
//canclose=false 则不关闭窗口
end;