komponente suchen über alle Forms und Datenmodule

[Sprint]

Delphi-Quellcode:

function GlobalFindComponent(const AName: String): TComponent;

  function ComponentFind(AComponent: TComponent; AName: String): TComponent;
  var
    I: Integer;
  begin
    Result := AComponent.FindComponent(AName);
    if not Assigned(Result) then
      for I := 0 to AComponent.ComponentCount - 1 do
      begin
        Result := ComponentFind(AComponent.Components[I], AName);
        if Assigned(Result) then
          Break;
      end;
  end;

begin
  Result := ComponentFind(Application, AName);
end;