Como fazer a inserção de componentes em tempo de execuxão
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
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
Curtidas 0
Respostas
Joel Rodrigues
22/04/2013
Basicamente é instanciar o componente e definir seu parent.
Para a TabSheet:
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
22/04/2013
Bom dia Joel,
Consegui desenvolver uma parte ate agora,
mas quando passo para o bgprod os botoes da erro.
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
22/04/2013
Que erro?
GOSTEI 0
Marcos Rossetto
22/04/2013
Control '' as no parent window
GOSTEI 0