Alle komponenten eines typs ansprechen?

[SebE]

Hi - Weis nicht, ob das dein Problem löst:

Code:

var
  i: Byte;
begin
  for i:=0 to Form1.ComponentCount-1 do
  if Form1.Components[i] is TLabel
  then with Form1.Components[i] as TLabel do
  Font.Color:=clRed
end;