Problemas ao fechar forms MDI e MDICHild

Question

Senhores,    Estou com um probleminha.    Tenho uma aplica��o que usas forms MDI. Em cada form filho eu tenho um evento no OnCloseQuery, ou seja, toda vez que se fechar um form filho ele faz uma pergu...

Massuda · Answer

Uma possibilidade seria voc� fechar os forms filhos no OnClose ou OnCloseQuery do form pai usando Free ao inv�s de Close (n�o testei):

var
  I: Integer;
....
  with Form1 do 
    for I := MDIChildCount - 1 downto 0 do begin
      MDIChildren[I].Free;
    end;

Outra possibilidade seria voc� ter uma flag (global ou na classe do form filho) indicando que quem est� fechando o form � o form pai. Por exemplo, teste no OnCloseQuery do form filho se essa flag est� marcada, se estiver, n�o mostre a pergunta.

Ehvasc · Answer

Caro Massuda,

J� tentei isso. N�o funciona pq de alguma forma o form_pai envia uma mensagem antes do close ou do CloseQuery do pr�prio form_pai para os filhos. A saida seria capturar a mensagem que o form MDI manda pra os filhos quando se tenta fech�-lo.

J� tentei verificar no OnClose e OnCloseQuery do form pai, s� que primeiro � executado o do form filho e depois o do form_pai.

De qualquer forma agrade�o sua aten��o.

Massuda · Answer

Insistindo um pouco mais na id�ia da flag global ou na classe do form filho...

J� tentei verificar no OnClose e OnCloseQuery do form pai, s� que primeiro � executado o do form filho e depois o do form_pai.

Depois de dar uma olhada no funcionamento do evento OnCloseQuery num aplicativo MDI, acho que voc� pode fazer o seguinte...

type
  TMeuFormMdiPai = class(...
  ...
  public
    function CloseQuery: Boolean; override;
  ...

...

function TMeuFormMdiPai.CloseQuery: Boolean; 
begin
  // seta uma flag global ou 
  // percorre MDIChildren[] setando uma flag
  // para indicar que � o form pai que est� fechando os forms
  Flag_FormPai_Fecha_FormFilho := True;

  Result := inherited CloseQuery;
end;

Isso deve funcionar porque a fun��o CloseQuery � quem dispara o evento OnCloseQuery. No caso de um form MDI pai, CloseQuery primeiro verifica o resultado de CloseQuery nos forms MDI filho para ent�o disparar o evento OnCloseQuery do form MDI pai. Setar uma flag [b:b24c7dc6e2]antes[/b:b24c7dc6e2] de chamar a fun��o herdada deve solucionar o problema.

Ehvasc · Answer

Caro Massuda,    N�o havia me atentado para isso, acho que queria resolver da forma mais complicada poss�vel, essa sua dica funcionou muito bem. Muito obrigado e at� a pr�xima...

F�rum Problemas ao fechar forms MDI e MDICHild #270422