Buscar componente pelo nome na aplicação.

Função que faz uma busca e retorna qualquer componente criado em tempo de projeto ou em runtime.

Por experiência própria e depois de ter quebrado muito a cabeça, descobrir que a função FindComponent do Delphi não retorna nenhum componente que tenha sido criado em runTime. Então desenvolvi uma pequena função que faz uma busca em toda a aplicação e retorna o componente através do nome.

Função:
function aFindComponent(aParent:TComponent;const aName:string):TComponent;
var
  i:integer;
  aP: TComponent;
begin
  if (aParent).Name = aName then
  begin
    result:= aParent;
    exit;
  end
  else
    result:=nil;
  for I := 0 to aParent.ComponentCount - 1 do
  begin
    aP:= aFindComponent(aParent.Components[i],aName);
    if aP<>nil then
    begin
      result:= aP;
      exit;
    end;   
  end;
end;

Modo de utilizar:
...
var cp:Tcomponent;
begin
     cp:= aFindComponent(Application,'nomeDoComponente'); //busca em toda a aplicação;
    
     cp:= aFindComponent(panel1,'nomeDoComponente'); //busca somente no panel1;
end;

Esta é o meu primeiro post, espero que seja útil.

Artigos relacionados