TWinControl
Gente, eu crio alguns componetes em tempo de execução, e dou alguns nomes a eles. O que eu preciso é seleciona-los com o nome em formato de texto. O que acontece é exatamente o seguinte:
Dentro de um ScrollBox, Eu crio vários Scroll, cada um com um componente TPanel (que uso como botão) e vários labels dentro dos mesmos Scroll, o Panel serve para quando eu clicar ele selecionar o Scrol a qual ele ´pertence´ (propriedade Parent apontada para o scrol) ele teria de mudar a propriedade heigth deste scrol. Quando Clico no Tpanel, pego o nome dele:
Scrol : String;
begin
if (Sender is TPanelPraca) then
Scrol := ´ScP_´ + copy(TPanelPraca(sender).Name, 4,Length
O que eu preciso saber é se é possivel eu setar como ativo um exemplo:
Scrol.heigth := 100; //Isso não funciona
Como eu poderia setar um componente sabendo só o nome dele?
alguém sabe?
Abraços..
Dentro de um ScrollBox, Eu crio vários Scroll, cada um com um componente TPanel (que uso como botão) e vários labels dentro dos mesmos Scroll, o Panel serve para quando eu clicar ele selecionar o Scrol a qual ele ´pertence´ (propriedade Parent apontada para o scrol) ele teria de mudar a propriedade heigth deste scrol. Quando Clico no Tpanel, pego o nome dele:
Scrol : String;
begin
if (Sender is TPanelPraca) then
Scrol := ´ScP_´ + copy(TPanelPraca(sender).Name, 4,Length
O que eu preciso saber é se é possivel eu setar como ativo um exemplo:
Scrol.heigth := 100; //Isso não funciona
Como eu poderia setar um componente sabendo só o nome dele?
alguém sabe?
Abraços..
Cristianopintado
Curtidas 0
Respostas
Rodc
06/11/2006
Use o FindComponent();
(FindComponent(Scrol) as TScrollBox).heigth := 100;
GOSTEI 0
Renato.pavan
06/11/2006
O que eu preciso saber é se é possivel eu setar como ativo um exemplo:
Scrol.heigth := 100; //Isso não funciona
Como eu poderia setar um componente sabendo só o nome dele?
alguém sabe?
Abraços..
Colega, não sei se isso te ajuda, mas testa ai
if FindComponent(scrol) is TScrollBox then
(FindComponent(Scrol)as TScrollBox).Height := 100;[]´s
Renato
GOSTEI 0