Zugriff auf beliebiges Element eines Forms

[nahpets]

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...