Fórum Como saber quais objetos tem parent igual ao objeto atual. #355612

procedure TFrmPrincipal.PageControlPrincipalClose(Sender: TObject;
var AllowClose: Boolean);
var
  i, j: integer;
  StateCDS: boolean;
begin
  StateCDS := False;
  with PageControlPrincipal do
  begin
    // faz a verredura nos forms abertos
    for i := 0 to Screen.FormCount - 1 do
    with Screen.Forms[i] do
    begin
      if (Parent <> nil) and (Parent = ActivePage) then
        // caso o form seja ´filho´ da página ativa no pagecontrol,
        // faz a verredura nos componentes do form
        for j := 0 to ComponentCount - 1 do
          if (Components[j] is TClientDataSet) then
            if (Components[j] as TClientDataSet).Active and
            ((Components[j] as TClientDataSet).ChangeCount > 0) then
            begin
              StateCDS := True;
              break; // se já encontrou um dataset aberto,
                     // não é mais necessário varrer os COMPONENTES
            end;

      // se já encontrou um dataset aberto,
      // não é mais necessário varrer os FORMS
      if StateCDS then
        break;
    end;

    AllowClose := not StateCDS or (StateCDS and
      (Application.MessageBox(´Atenção! Existem Alterações pendentes que serão descartadas...´
       + 13 + 13 + ´Você tem mesmo certeza ?´,
       ´Cancelamento de Operações de dados...´, MB_YESNO + MB_ICONWARNING +
       MB_DEFBUTTON1) = IDNO));

    // a flag AllowClose=True fecha a página automaticamente.
    // de qualquer forma, se você mesmo quiser controlar 
    // o fechamento, habilite o código abaixo
{    if AllowClose then
    begin
      ActivePage.Destroy;
      SelectNextPage(false);
      PageControlPrincipalChange(nil);
    end;}
  end;
end;