Alle komponenten eines typs ansprechen?

[Robert_G]

Zitat von pirechner:

das mit den antworten geht hier immer echt schnell!
ich hab die label leider noch alle selber eingefügt per hand .
aber es sind zu viele um alles einzutippen und dann wollte ich es etwas eleganter machen.

Wie wär's wenn du sie alle markierst und dann im OI das Font (und damit die Font farbe) änderst?

Wenn es per Code gehen soll ist Components als Array of Component dein Freund.

Delphi-Quellcode:

  for i := 0 to pred(ComponentCount) do
    if Components(i) is TLabel then
      with Components(i) as TLabel do
        TLabel(Components(i)).Font.Color := clIrgendWas;

oder in D2005:

Delphi-Quellcode:

var
  Component :TComponent;
begin
  ...
  for Component in Components do
    if Component is TLabel then
      TLabel(Component).Font.Color := clIrgendWas;
  ...

war auch zu langsam, aber ich bin auch im Urlaub. Da darf man langsam sein