Como fazer a inserção de componentes em tempo de execuxão
22/04/2013
0
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
Curtir tópico
+ 0
Responder
Posts
22/04/2013
Joel Rodrigues
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;
Responder
23/04/2013
Marcos Rossetto
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)