FORM Dinâmico com Page Control

[vcadanos]

Boa Tarde,

Estou fazendo alguns testes com unigui usando um exemplo do Afonso(//

Só que  uma coisa que não consegui foi que ao adicionar por exemplo um grid dentro do frame ao carregar o tabsheet que é criado dinamicamente não fica alclient ..

Ja aquelas tabsheet que eu crio fixo funciona legal, preenchendo a tela toda., Alguém tem alguma dica ou um exemplo segue o código que uso para criar a tabsheet dinamicamente.

 

procedure TMainForm.NovaAba(nomeFormFrame: TFrame; descFormFrame: string; Fechar: Boolean);
var TabSheet      :TUniTabSheet;
    FCurrentFrame :TUniFrame;
    I             :Integer;
begin

      pagePrincipal.Visible := True;

      {Verificando se a tela já está aberto e redireciona a ela}
      for I := 0 to pagePrincipal.PageCount - 1 do
        with pagePrincipal do
          if Pages.Caption = descFormFrame  then
            begin
              pagePrincipal.ActivePageIndex := I;
              Exit;
            end;

      TabSheet              := TUniTabSheet.Create(Self);
      TabSheet.PageControl  := pagePrincipal;
      TabSheet.Caption      := descFormFrame;
      TabSheet.Closable     := Fechar;

      FCurrentFrame:= TUniFrameClass(nomeFormFrame).Create(Self);

      with FCurrentFrame do
        begin
          Align               := alClient;
          Parent              := TabSheet;
        end;

      Refresh;

      pagePrincipal.ActivePage := TabSheet;
end;

 

 

 

[andersonn51]

Thanks for sharing.

[Decio]

Como ficaria se eu fosse abrir o mesmo frame varias vezes em abas diferentes

[edujgomes5]

Esbarrei no mesmo problema, o dbgrid não preenche a tela toda, já fiz vários testes sem sucesso, qualquer ajuda é bem vinda.