суббота, 27 апреля 2013 г.

Ещё правки VCL (15)


function TCustomForm.CloseQuery: Boolean;  {V}
var
  I: Integer;
begin
  Result := True;
  if Assigned(FOnCloseQuery) then FOnCloseQuery(Self, Result);
  If Result and
     (FormStyle = fsMDIForm) then
   begin
    for I := 0 to MDIChildCount - 1 do
     begin
      Result := MDIChildren[I].CloseQuery;
      If Not Result then Exit;
     end;
   end;
end;
{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;}

Комментариев нет:

Отправить комментарий