F�rum Criando componentes em tempo de execucao #423118

03/09/2012

Tarde galerinha !
Estou com dificuldades em criar componentes em tempo de execu��o.
Os componentes devem ficar dentro de um scrollBox.
J� consegui fazer com que o scroolBox receba os panels, mas dentro dos panels deve conter um progressBar. Nao sei como fa�o para avisar na criacao do componente que o progress ir� dentro do panel criado !
Vejam como est� o codigo, lembrando que ele pega da base.

// Coloca no primeiro registro do select
qestoque.First;

// enquanto nao chega no ultimo
while qestoque.Eof = false do
 Begin

    // Cria o panel
    P := TPanel.Create(Self);
    P.align := alLeft;
    P.Width := 50 ;
    P.Height := 95;
    
    // Cria um nome para o panel com um numero para poder ser unico
    P.Name := 'Painel' + inttostr(x);
    
    //Fala para o componente ser criado dentro do ScroolBox
    P.Parent := sb1;


    // Criacao do Progress
    Pg := TcxProgressBar.Create(Self);
    Pg.Properties.Orientation := cxOrVertical;
    Pg.AutoSize := false;
    Pg.Left := 10;
    Pg.Top := 20;
    Pg.AlignWithMargins := true;
    Pg.Width := 30;
    Pg.Height := 63;
    Pg.Name := 'Progress' + inttostr(x);

    // Como definir o componente que vai ser recebido o progress se ele nao esta no form ? gera um erro no delphi
    Pg.Parent := ???;



    qestoque.Next;
    x := x +1;
 End;

Geison

Curtir t�pico

+ 0

Responder

Posts

03/09/2012

Alan Souza

testei passando o pr�prio p no Parent e funcionou:

Pg.Parent := p;

mas o c�digo n�o pode ser reexecutado sem destruir todos os componentes dentro do ScrollBox.

Responder

Gostei + 0

03/09/2012

Geison

alanps, estava agora mesmo respondendo ao topico,
deve-se colocar o nome do objeto criado (correto ?) no parent, a� foi.
Obrigado !

Responder

Gostei + 0

03/09/2012

Alan Souza

na verdade o que voc� passa � O objeto descendente de TWinControl.

Responder

Gostei + 0

03/09/2012

Geison

Entendi. Obrigado !

Responder

Gostei + 0

03/09/2012

Deivison Melo

Posso colocar o t�pico como encerrado?

Responder

Gostei + 0

06/09/2012

Geison

Quase Deividison !

mas o c�digo n�o pode ser reexecutado sem destruir todos os componentes dentro do ScrollBox

eu fa�o isso usando o

DestroyComponents

do scroll ? ou tenho q ter todos os nomes dos componentes e destruir um a um ?

Responder

Gostei + 0

11/09/2012

Alan Souza

costumo fazer assim para destruir controles dentro de um container:

  for i := 0 to Pred(ScrollBox.ControlCount) do
    ScrollBox.Controls[0].Free;

Responder

Gostei + 0