Skip to main content
adicionou 416 caracteres ao conteúdo
Fonte Link

Você precisa acessar o Pai do componente primeiramente acompanhado dos componentes dentro dele para ter acesso. Fiz um exemplo para ter acesso ao TLabelTLabel.

Espero que ajude.

var
  oLabel: TObject
begin
  oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TLabel');
  if Assigned(oLabel) then
    TLabel(oLabel).TextSettings.FontColor := TAlphaColorRec.White;

end;

Esse exemplo funcionará se caso o TLabel se encontrar dentro do componente TRectangle, agora se por exemplo existir dentro de um TRectagle um componente TToolBar e então dentro do TToolBar existir o TLabel. Teria que somente acrescentar um FindComponent() buscando o TToolBar.

oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TToolBar').FindComponent('nome do TLabel');

Você precisa acessar o Pai do componente primeiramente acompanhado dos componentes dentro dele para ter acesso. Fiz um exemplo para ter acesso ao TLabel.

Espero que ajude.

var
  oLabel: TObject
begin
  oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TLabel');
  if Assigned(oLabel) then
    TLabel(oLabel).TextSettings.FontColor := TAlphaColorRec.White;

end;

Você precisa acessar o Pai do componente primeiramente acompanhado dos componentes dentro dele para ter acesso. Fiz um exemplo para ter acesso ao TLabel.

Espero que ajude.

var
  oLabel: TObject
begin
  oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TLabel');
  if Assigned(oLabel) then
    TLabel(oLabel).TextSettings.FontColor := TAlphaColorRec.White;

end;

Esse exemplo funcionará se caso o TLabel se encontrar dentro do componente TRectangle, agora se por exemplo existir dentro de um TRectagle um componente TToolBar e então dentro do TToolBar existir o TLabel. Teria que somente acrescentar um FindComponent() buscando o TToolBar.

oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TToolBar').FindComponent('nome do TLabel');
Fonte Link

Você precisa acessar o Pai do componente primeiramente acompanhado dos componentes dentro dele para ter acesso. Fiz um exemplo para ter acesso ao TLabel.

Espero que ajude.

var
  oLabel: TObject
begin
  oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TLabel');
  if Assigned(oLabel) then
    TLabel(oLabel).TextSettings.FontColor := TAlphaColorRec.White;

end;