Criar componentes dinamicamente
Como inserir um label num groupbox dinamicamente, sendo que os dois foram também criados dinamicamente?
Obrigada
Lê
Obrigada
Lê
Lelê
Curtidas 0
Respostas
Firekiller
01/10/2005
Se você souber pelo menos o nome do componente é só passar para a propriedade Parent (do label) o seguinte:
TGroupBox( FindComponent(´NomeDoGroup´) );
TGroupBox( FindComponent(´NomeDoGroup´) );
GOSTEI 0
Lelê
01/10/2005
Olas!
Eu tentei o que vc falou e o codigo ficou assim:
Labels[cont] := TDBText.Create(application);{já criei no form e não deu}
Labels[cont].Parent := TGroupBox(FindComponent(´group1´));
Labels[cont].AutoSize := true;
Labels[cont].Font.Name := ´TimesNewRomam´;
Labels[cont].Font.Size := 10;
Labels[cont].DataSource := DBEdits[cont].DataSource;
Labels[cont].DataField := DBEdits[cont].DataField;
Labels[cont].BringToFront;
A idéia do programa é ter uma lista de DBEdits e os labels só serem
criados de acordo com o check de cada DBEdit. Meu parent estava
form2 e lógico eles apareciam no form, agora não dá pau mas eles
não aparecem
Socorro?
Obrigada
Lê
Eu tentei o que vc falou e o codigo ficou assim:
Labels[cont] := TDBText.Create(application);{já criei no form e não deu}
Labels[cont].Parent := TGroupBox(FindComponent(´group1´));
Labels[cont].AutoSize := true;
Labels[cont].Font.Name := ´TimesNewRomam´;
Labels[cont].Font.Size := 10;
Labels[cont].DataSource := DBEdits[cont].DataSource;
Labels[cont].DataField := DBEdits[cont].DataField;
Labels[cont].BringToFront;
A idéia do programa é ter uma lista de DBEdits e os labels só serem
criados de acordo com o check de cada DBEdit. Meu parent estava
form2 e lógico eles apareciam no form, agora não dá pau mas eles
não aparecem
Socorro?
Obrigada
Lê
GOSTEI 0