Hallo,
versuche es mal flach zu formulieren:
Gehe durch die Komponenten der Applikation und für jede gefundene Komponente durch alle Komponenten dieser Komponente, bis du fündig geworden bist.
Sowas in der Art:
Delphi-Quellcode:
for i := 0 to Application.ComponentCount - 1 do begin
if Application.Components[i].ComponentCount > 0 then
with Application.Components[i] do begin
// das dann rekursiv weiter
end;
end;
end;
Bei Formularen ggfls. auch mit form.ControlCount und form.Controls[i], eventuell auch mit Application.Components[i].FindComponent('Toolbar1')...
Zugriff per Typcast auf die gefunden Komponente:
If Components[i] is TToolbar then with Components[i] As TToolbar do begin...