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

22/04/2013

1

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
Responder

Posts

22/04/2013

Joel Rodrigues

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;
Responder
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.
Responder

23/04/2013

Joel Rodrigues

Que erro?
Responder
Control '' as no parent window
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira