Komponenten Eigenschaft in gesamter Anwendung ändern

[Pichel]

Zitat von oki:

warum soll das mit der PropList nicht gehen.
Ich hab das jetzt mal stückweise aus meinem Code rauskopiert und ungeprüft geändert...

Danke "oki".
Damit konnte ich jetzt doch meine geistige Blockade lösen
Hab mal inspiriert durch Deinen Code und meine bisherigen Gedanken folgendes gebastelt was soweit das gewünschte Ergebnis erziehlt und jede beliebige Eigenschaft global ändern kann.

Delphi-Quellcode:

procedure myPropertyChangeByName(Component: TComponent; BaseClass: TClass;
            const PropertyName: string; Value: Variant);
  procedure ChangeProp(Obj: TObject);
  var PropList : PPropList;
      k, Count : Integer;
      PropName : String;
      SubObj   : TObject;
  begin
    Count := GetPropList(Obj, PropList);
    for k := 0 to Count - 1 do begin
      PropName := PropList[k]^.Name;
      if PropName = PropertyName then
        SetPropValue(Obj, PropertyName, Value);
      if PropList[k]^.PropType^.Kind in [tkClass] then begin // neue Unterklasse
        SubObj := GetObjectProp(Obj, PropName);
        if Assigned(SubObj) then
          ChangeProp(SubObj);
      end;
    end;
  end;
var i : Integer;
begin
  for i := 0 to Component.ComponentCount - 1 do
    ChangeProp(Component.Components[i]);
end;

Aufruf zB:  myPropertyChangeByName(Self, TFont, 'Charset', OEM_CHARSET); um alle Font-Eigenschaften entsprechend zu ändern.
Vorsicht: nicht mit "Color" versuchen, denn zB weisse Schrift auf weissem Grund macht sich nicht besonders gut