Farben ändern

[mimi]

ich kenne keine komponente wo es nicht eine color eingenschaft gibt.
ansonsten muss du alle eingenschaften durchgehen mit:

Delphi-Quellcode:

var
  i: Integer;
  Component: TComponent;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    Component := Components[i];
    if (Component is TControl) then
    begin
      Assert(Assigned(Component));
      if IsPublishedProp(Component, 'Font') then
        TFont(GetObjectProp(Component, 'Font', TFont)).Color := ANewColor;
    end;
  end;