Закрытие дочерних MDI форм

[Armorer]

Столкнулся с такой проблемой.

В MDI приложении открыто много дочерних окон. У каждой в CloseQuery выдается запрос на подтверждение закрытия формы. Если закрывать главную форму, то сначала вызываются обработчики CloseQuery дочерних и если хотя бы один из них возвращает false, то программа не закроется.

Как можно сделать чтобы
1. При закрытии главной формы обработчики CloseQuery дочерних не выполнялись?
2. Или если выполняются то те окна в которых CloseQuery вернул true закрывались, даже если следующий обработчик вернул false?

[Аватар]

Ввести глобальную пнрнменную. Нач.знач = False. Перед закрытием гл.формы поместить True. Везде в CloseQuery анализировать значение этой переменной

[Armorer]

"Перед закрытием гл.формы поместить True." как отследить закрытие главной формы, прежде чем сработают onCloseQuery дочерних?

[Armorer]

Сообщение от Аватар

Ввести глобальную пнрнменную. Нач.знач = False. Перед закрытием гл.формы поместить True. Везде в CloseQuery анализировать значение этой переменной

как отследить закрытие главной формы, прежде чем сработают onCloseQuery дочерних?

[Аватар]

OnCloseQuery главной формы

[Armorer]

OnCloseQuery главной формы

OnCloseQuery главной формы вызывается после OnCloseQuery дочерних.

из Forms:

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;

[veniside]

> OnCloseQuery главной формы вызывается после OnCloseQuery дочерних.

и это логично ) А что там с WM_CLOSE?

[Аватар]

Протупил. Тогда как veniside подсказал - попробовать переопределить обработчик WM_CLOSE

[Баламут]

В конце-концов если не нравится вариант с глобальной переменной (так и не понял почему), можно сделать так

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: integer;
begin
  for i := 0 to Form1.MDIChildCount - 1 do
  begin
    Form1.MDIChildren[i].OnCloseQuery := nil;
  end;
end;

[Аватар]

Та же проблема, что и OnCloseQuery главной формы

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

Еще вариант

type
  TForm1 = class(TForm)
  public
    procedure Close;
  end;

implementation

procedure TForm1.Close;
begin
//Здесь присвоить True глобальной переменной
  Inherited;
end;