Tanara o que acontece é que em algumas situações o
comando with..do não funciona corretamente, quando vc faz:
with TLabel.Create(LabelX) do
begin
Parent := TScrollBox1;
....
end;
o Compilador entende como sendo do pai (o form);
então acho melhor vc usar sempr colocando o nome do objeto.propriedade;
mas, lembre-se o uso do with..do é muito bom e normal, só quando
acontecer esses tipo de falhas você deve atentar-se para, mudar um
pouco suas rotinas e fazer alguns teste como o que descrevir.
Att,
.
. Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
________________________________
De: Tamara Clemente <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 27 de Outubro de 2008 7:58:37
Assunto: Re: [delphi-br] Propriedade Parent de componente criado em Run Time
Foi praticamente isso q fiz msm... eu só não entendi o pq quando o passo
direto para o parent não funciona, tenho q passar primeiro para uma outra
variavel...
Obrigada a todos pela atenção!
Tamara
2008/10/27 Rodinei (MSN) <rodinei_amorim@ hotmail.com>
> gb_WS = TWinControl (pode ser inclusive o ScrollBox)
>
> db_Label := TLabel.Create( gb_WC);
> db_Label.Parent := gb_WC;
> db_Label.AutoSize := True;
> db_Label.Caption := gb_Texto;
> db_Label.Top := gb_Top - 13;
> db_Label.Left := gb_Left;
> db_Label.Font. Color := clNavy;
> db_Label.Font. Style := [fsBold];
> db_Label.Visible := True;
>
> Abraços e boa sorte
>
> Rodinei Amorim
> Programador Delphi
> rodinei_amorim@ hotmail.com <rodinei_amorim% 40hotmail. com>
> (11) 8208-9503 - (11) 2024-2723
>
> From: Tamara Clemente
> Sent: Monday, October 27, 2008 12:06 AM
> To: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.com. br>
> Subject: [delphi-br] Propriedade Parent de componente criado em Run Time
>
>
> Boa Noite Pessoal,
>
> Estou criando uma série de label's em run time, mas não estou conseguindo
> colocá-los dentro de um scrollbox que tenho criado em tempo de design.
>
> A questão é a seguinte:
> - Tenho um pagecontrol com vários tabsheet's criado em design.
> - Dentro de cada tabsheet eu tenho um scrollbox.
> - Em run time eu faço uma consulta no banco de dados e obtenho os títulos
> de
> cada tabsheet.
> - Atribuo esses títulos através de um laço de repetição.
> - Dentro deste laco eu chamo uma função para criar uma série de labels
> dentro dos tabsheets(coloquei o scrollbox porque a quantidade de objetos
> ocupa um espaço maior que o tamanho definido para o pagecontrol) e passo
> MeuPageControl. Pages[PaginaQueT oUsando] como parâmetro.
>
> Inicialmente eu utilizava este parâmetro na propriedade Parent do label que
> estava criando, mas como citei, tive um problema de nem tudo que preciso
> cabe na tela e não conseguir ativar scroll no tabsheet. Então tentei passar
> para a propriedade parent do label o seguinte:
>
> Parent := TScrollBox(FindComp onent('sbx' + Copy(ATbs.Name, 4,
> Length(ATbs. Name))));
>
> Onde eu concateno o prefixo de scrollbox com o final do nome do tabsheet,
> criando exatamente o nome do scrollbox criado em design. O problema é que,
> mesmo não tendo erro de compilação, nem de execução, nenhum label é
> inserido
> dentro do scrollbox. =[
> Debugando o programa eu vi que o scrollbox é reconhecido perfeitamente. ..
>
> PS: não tenho como colocar fixo o scrollbox na propriedade parent.
>
> Pessoal, me deem um ajuda por favor. Aceito inclusive outro tipo de solução
> que não seja este. Está complicada a montagem de grande de horário
> utilizando labels com informações totalmente vindas do banco de dados. (TCC
> stressa....rs)
>
> Obrigada desde já,
>
> Tamara
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
