Einzelnen Beitrag anzeigen

Benutzerbild von Pichel
Pichel

Registriert seit: 25. Feb 2005
Ort: Kassel
65 Beiträge
 
Delphi 7 Professional
 
#1

Komponenten Eigenschaft in gesamter Anwendung ändern

  Alt 21. Mär 2009, 11:41
Hiho, bin mal wieder am verzweifeln (glaub ich werde alt ^^)

Ich wollte einfach mal schnell nen Funktion basteln um im Form (oder besser gleich gesamten Anwendung) in allen Komponenten eine Eigenschaft zu ändern.

Im konkreten Beispiel wollte ich die Eigenschaft "Charset" von TFont global ändern.
Hab natürlich gesucht und am effektivsten war das:
http://www.delphipraxis.net/internal...t.php?t=114143

Funktioniert auch, sofern die Komponenten die Eigenschaft Font direkt haben. nimmt man nun als Beispiel den VirtualStringTree versteckt sich auch ein Font in Komponente.Header.Font und wer weis wo noch alles.

Mein Ansatz: also müsste ich bei jeder Komponente per GetPropList nach Typ TFont durchsuchen und Eigenschaften die wiederum Unter-Eigenschaften haben ebenfalls durchsuchen nach TFont.

Und genau diesbezüglich sitz ich jetzt schon stundenlang auf der Leitung und hoffe auf Eure Hilfe.
Grüße aus Kassel.

Konfuzius sprach: Etwas lernen und sich immer wieder darin üben - schafft das nicht auch Befriedigung?
  Mit Zitat antworten Zitat