[firebase-br] Off Criação de Componentes em Execução

[Anderson]

amigo basta apenas colocar a propriedade NAME na criacao do panel com o nome 
da suite (caption = label)

Abracos
----- Original Message ----- 
From: "OseasTormen" <mentux em gmail.com>
To: <lista em firebase.com.br>
Sent: Monday, March 24, 2008 1:52 PM
Subject: Re: [firebase-br] Off Criação de Componentes em Execução


> trollnet.no-ip.org
> vtnc.Linguagens.Delphi
>
> ali tem gente que com certeza vai te ajudar
>
> =D
>
> -- 
> ____________________________
> OseasTormen
> Chapecó - SC
> "Microtecs Informática Ltda" <microtecs em terra.com.br> escreveu na mensagem 
> news:000001c88dc8$c4d68d70$0401a8c0 em server...
> Boa tarde colegas,
>
> Sei que aqui é uma lista FIREBIRD mas estou com uma dúvida com
> relação a criação de componente em tempo de execução. Uso a rotina
> abaixo para criar um painel com 64 painéis (8 por linha e 8 colunas)
> onde cada um representa uma suíte. Os painéis são criados perfeitamente,
> o problema é que dentro de cada painel tenho que ter 2 labels cujo o
> nome deve ser o nome do painel que foi criado + alguma coisa, não
> consigo pegar nome do painel que acabou de ser criado.
>
>
> procedure CriarPanels();
> Var
> Painel : TPanel;
> LabelSuite : TLabel;
> i,leftPainelAnt,topPainelAnt,qtSuites:integer;
> begin
> leftPainelAnt:=8;
> topPainelAnt:=10;
> qtSuites:=strtoint(frmPrincipal.edtSuites.Text);
> For i := 1 to qtSuites do
>    begin
>    with Painel do
>         begin
>         Painel := TPanel.Create(frmPrincipal.pnPainel);
>         Parent := frmPrincipal.pnPainel;
>         height := frmPrincipal.altura;
>         width := frmPrincipal.largura;
>         caption := 'SUITE '+inttostr(i);
>         if i<10 then
>            begin
>            name := 'pn0'+inttostr(i);
>            with LabelSuite do
>                 begin
> LabelSuite:=TLabel(???????);
>                  Parent:= AchaComponente(????????);
>                 end;
>            end
>            else
>            begin
>            name := 'pn'+inttostr(i);
>            end;
>         left := leftPainelAnt;
>         top :=  topPainelAnt;
>         if i mod 8 = 0 then
>            begin
>            leftPainelAnt:=8;
>            topPainelAnt:=topPainelAnt+50+5;
>            end
>            else
>            leftPainelAnt:=leftPainelAnt+92+5;
>         end;
>     end;
> end;
>
>
> Desculpem pela dúvida, mas se alguém puder me ajudar eu agradeço.
>
> Abraços...
>
> Rômulo
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: 
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>
>
>
>


--------------------------------------------------------------------------------


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa