Fórum Como fazer a inserção de componentes em tempo de execuxão #440529

var
  aba : TTabSheet;
begin
  //cria uma aba e insere no pagecontrol
  aba := TTabSheet.Create(Self);
  aba.PageControl := PageControl1;
end;

with DMDados do
  begin
    QryBuscaCat.Open;
    QryBuscaCat.First;
    while not QryBuscaCat.Eof do
    begin
      tab := TTabSheet.Create(PageProd);
      tab.PageControl := PageProd;
      tab.Align := alClient;
      tab.Visible := true;
      tab.Caption := QryBuscaCatNOME.AsString;

      bgprod := TButtonGroup.Create(tab);
      BgProd.Visible := true;
      Bgprod.ButtonHeight := 20;
      Bgprod.ButtonWidth := 200;
      bgprod.ShowHint := True;
      Bgprod.Align := alClient;

      QryBuscaProd.Open;
      QryBuscaProd.First;
      while not QryBuscaProd.Eof do
      begin
        bgprod.Items.Add.Caption :=IntToStr(QryBuscaProdID.AsInteger)+' - '+QryBuscaProdPRODUTO.AsString;
        QryBuscaProd.Next;
      end;

      QryBuscaCat.Next;
    end;
  end;