Bei Komponenten einen Untereintrag (Font -> Size) ändern

**litotes**

Hallo,

ich beiß mir grade die Zähne aus am Problem, die Schriftgröße von Buttons (TJvSpeedbuttons) zu ändern.

Eigentlich habe ich den passenden Code (von Marabu (Danke!))
schon gefunden, aber der klappt eben nicht ganz:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SetProperty(c: TComponent; cClass, cName: String; cValue: Variant); 

var 

  i: Integer; 

  ppi: PPropInfo; 

begin 

  if SameText(c.ClassName, cClass) then 

  begin 

    ppi := GetPropInfo(c, cName); 

    if Assigned(ppi) then 

      SetPropValue(c, cName, cValue); 

  end; 

  for i := 0 to Pred(c.ComponentCount) do 

    SetProperty(c.Components[i], cClass, cName, cValue); 

end;

Mit dem Abruf:
SetProperty(Application, 'TJvSpeedbutton', 'Color', clRed); kann ich die Farbe ändern, klappt also super.

Aber eben die 'Size' von 'Font' nicht, da die ja ein Untereintrag ist!

Geht das gar nicht so? Oder wie müsste der Befehl denn aussehen?

SetProperty(Application, 'TButton', 'Font', 10);

<- hier müsste ja noch 'size' stehen, also:

SetProperty(Application, 'TButton', 'Font', 'size', 10) o. ä.

Wie kann man das machen?

Für Hilfe bin ich sehr dankbar... nach 2 Tagen ist der Frust doch recht groß!

litotes

Bei Komponenten einen Untereintrag (Font -> Size) ändern

Bei Komponenten einen Untereintrag (Font -> Size) ändern

Forumregeln