Komponenten Eigenschaft in gesamter Anwendung ändern

[Pichel]

Zitat:

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:

Delphi-Quellcode:

  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 :shock:

[oki]

Hi Pichel,

schön, dass mein Beispiel geholfen hat. Klar muss man schon wissen, was man wie ändert. Für dein Bsp. ist das denke ich so ein Weg. Der Sinn ist es halt durch alle Objekte deiner Komponenten incl. derer Objekte, derer Objekte ... durchzuiterieren um alle zu erwischen. Von Vorteil ist hier sicher, dass nur Font die Eigenschaft Charset besitzt. Mit Color sieht das natürlich schon anders aus. Da muss man dann noch die Klasse oder das Objekt einbeziehen in welcher die Farbe geändert werden soll. Das Prinzip bleibt aber das gleiche.

Dann noch einen schönen Sonntag,

Gruß oki