function TCustomForm.CloseQuery: Boolean;
var
I: Integer;
begin
if FormStyle = fsMDIForm then
begin
Result := False;
for I := 0 to MDIChildCount - 1 do
if not MDIChildren[I].CloseQuery then Exit;
end;
Result := True;
if Assigned(FOnCloseQuery) then FOnCloseQuery(Self, Result);
end;
var
I: Integer;
begin
if FormStyle = fsMDIForm then
begin
Result := False;
for I := 0 to MDIChildCount - 1 do
if not MDIChildren[I].CloseQuery then Exit;
end;
Result := True;
if Assigned(FOnCloseQuery) then FOnCloseQuery(Self, Result);
end;
解决方案 »
- 多层开发的作用是什么?
- 关于delphi swf sdk的安装问题
- 正则表达式求解?。。。。
- 请问怎样用Delphi程序取到Excel实际的最大行数和最大列数?
- 如何用程序自动控制日期范围在当月或指定月中?-----在线等待ing.....
- 我靠, dudunono (Cookies) 名目张胆的给 l_xiaofeng(流水不腐) 送出2000分,要不是倒分,我把名字倒着写!
- 有关BMP与RES
- 请问,如何把from1窗口设为无边框.
- dlphi启动时出现 I/O error 103 怎么回事?
- ●●● 招 聘 ●●●
- 今年9月1日是我的生日,我来放分了!还在外地不能跟老婆一起过伤心!
- 讨论贴:你研究外挂技术的目的是什么?
如果是fsMDIForm则要调要它的所有MDIChild的CloseQuery
传回的result
直接可以这样用吗