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

[Microtecs Informática Ltda]

Obrigado

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]
Em nome de OseasTormen
Enviada em: segunda-feira, 24 de março de 2008 13:53
Para: lista em firebase.com.br
Assunto: 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