Como fazer a inserção de componentes em tempo de execuxão

Delphi

22/04/2013

Bom dia.
Estou desenvolvendo um sistema para restaurantes...
E quero fazer o carregamento do cardápio em tempo de execução...
Vou tentar explicar como quero fazer, quero adicionar um pagecontrol no page quero add um tabshit no tab quero
add um buttongroup com os itens do cardápio separado por categoria no tabshit...

Aguardo retorno..

Agradeço desde já.

Att.
Marcos Vinicius Rossetto.
marcos@abacus.inf.br
www.abacus.inf.br
Marcos Rossetto

Marcos Rossetto

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

22/04/2013

Basicamente é instanciar o componente e definir seu parent.
Para a TabSheet:

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

Marcos Rossetto

22/04/2013

Bom dia Joel,
Consegui desenvolver uma parte ate agora,
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;


mas quando passo para o bgprod os botoes da erro.
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

22/04/2013

Que erro?
GOSTEI 0
Marcos Rossetto

Marcos Rossetto

22/04/2013

Control '' as no parent window
GOSTEI 0
POSTAR