Fórum Trabalhar com abas em forms separados usando TAdvOfficePager #452736

class procedure AbrirForm(Form: TFormClass);
class function  AbaExiste(NomeAba: string): Boolean;
class procedure FecharForm(Form: TFormClass);

class function TClassFuncoes.AbaExiste(NomeAba: string): Boolean;
var
  i: Integer;
  Aba: TcxTabSheet;
begin
  Result := False;
  for i := 0 to FrmPrincipal.cxPageControlPrincipal.PageCount - 1 do
  begin
    if FrmPrincipal.cxPageControlPrincipal.Pages[i].Caption = NomeAba then
    begin
      Aba := FrmPrincipal.cxPageControlPrincipal.Pages[i];
      FrmPrincipal.cxPageControlPrincipal.ActivePage := Aba;
      Result := True;
      break;
    end;
  end;
end;

class procedure TClassFuncoes.AbrirForm(Form : TFormClass);
var
  i: Integer;
  Tab: TcxTabSheet;
  frm: TForm;
begin
  try
    for i:=0 to FrmPrincipal.cxPageControlPrincipal.PageCount-1 do
    begin
      if (FrmPrincipal.cxPageControlPrincipal.Pages[i].Controls[0].ClassType = Form) then
      begin
        FrmPrincipal.cxPageControlPrincipal.ActivePage := FrmPrincipal.cxPageControlPrincipal.Pages[i];
        Exit;
      end;
    end;
    Tab := TcxTabSheet.Create(FrmPrincipal.cxPageControlPrincipal);
    Tab.PageControl := FrmPrincipal.cxPageControlPrincipal;
    frm := Form.Create(Application);
    frm.Parent := Tab;
    frm.Align := alClient;
    frm.BorderStyle := bsNone;
    Tab.Caption := frm.Caption;
    frm.Show;
    FrmPrincipal.cxPageControlPrincipal.ActivePage := Tab;
  except
    on E: Exception do
      ShowMessage('Erro ao abrir a janela: ' + E.Message);
  end;
end;

class procedure TClassFuncoes.FecharForm(Form : TFormClass);
var
  i: integer;
  Aba: TcxPageControl;
begin
  for i := 0 to FrmPrincipal.cxPageControlPrincipal.PageCount - 1 do
  begin
    if FrmPrincipal.cxPageControlPrincipal.Pages[i].Controls[0].ClassType = Form then
    begin
      FrmPrincipal.cxPageControlPrincipal.Pages[i].Destroy;
      Exit;
    end;
  end;
end;