Schriftart ändern für alle Label und Edits in einem Form

[himitsu]

  TControlTrick = class(TControl) end;
oder
  TControlTrick = class(TControl);
reicht, da du so bereits Zugriff auf Alles bekommst. (auch protected, da Deklaration in selber/aktueller Unit)

Aber ist auch unötig, da man sich für Font auch einfach irgendwas nehmen kann, wo es bereits Public gemacht wurde, wie z.B. TLabel oder TEdit, anstatt TControlTrick.

[zeras]

Du markierst die Objekte und im Objektinspektor bleiben die Eigenschaften übrig, die die Objekte gemeinsam haben. Dann einfach die Schriftart ändern.

[enigma]

Vielen Dank für eure wertvollen Tipps!

[TigerLilly]

Da passt dieses vielleicht auch:
http://www.danieleteti.it/post/duck-typing-in-delphi/
http://arcana.squarespace.com/duckduckdelphi

[Rolf Frei]

Geht es um die Fonts zur Runtime, also vom Kunden selber angegebene Fonts oder geht es um einmal in der IDE z.B. MS SansSerif auf Segoe UI zu ändern. Wenn du deine Form in der IDE umstellen willst, ist es am einfachsten die Form zu öffnen und dann Alt-F12 zu drücken. Im Sourcecode der DFM kannst du nun einfach nach dem alten Fontnamen suchen und diesen mit dem neuen ersetzen. Danach einfach wieder Alt-F12 und alles ist erledigt.

[himitsu]

Zitat von Rolf Frei:

und alles ist erledigt.

Wenn der zu ändernde Font der Default-Font jener Komponente ist, dann wird bei ParentFont=False Dieser benutzt, ist aber dennoch nicht in der DFM gespeichert.

[Michael II]

Zitat von Rolf Frei:

Geht es um die Fonts zur Runtime, also vom Kunden selber angegebene Fonts oder geht es um einmal in der IDE z.B. MS SansSerif auf Segoe UI zu ändern. Wenn du deine Form in der IDE umstellen willst, ist es am einfachsten die Form zu öffnen und dann Alt-F12 zu drücken. Im Sourcecode der DFM kannst du nun einfach nach dem alten Fontnamen suchen und diesen mit dem neuen ersetzen. Danach einfach wieder Alt-F12 und alles ist erledigt.

Musste ich auch gerade tun... in zwei Projekten, welche ich seit Delphi2
pflege gab's noch viele Fenster mit "MS Sans Serif". Erst kürzlich bin ich von 1920x1080 endlich auf 3K und 4K Monitore umgestiegen - und erst da sah ich, wie verpixelt MS Sans Serif Schrift auf solchen Monitoren aussieht.
Da die DFMs von neueren Delphis in TXT vorliegen und ältere binäre DFMs mittels ObjectResourceToText in TXT übersetzt werden können, lässt sich der Font-Austausch mit ein paar wenigen Zeilen Code automatisieren.

[himitsu]

Zitat:

Da die DFMs von neueren Delphis in TXT vorliegen und ältere binäre DFMs mittels ObjectResourceToText in TXT übersetzt werden können

Jain.

Die einkompilierte Ressource ist immernoch Binär.
Die DFM wird aber seit ewig als Text gespeichert, aber das ging auch schon früher, wenn man die Einstellung änderte. (gut, D2 noch nicht, aber ab irgendwann bis D7)



Wie mehrmals gesagt, haben wir auch hunderte Forms, aber mit sowas garkeine Probleme.
Wir nutzen möglichst nur abgeleitete Komponenten und vererbte Forms (von Letzterem muß ich leider abrate, da der unfähige Support schwerwiegende Bugs nicht reparieren will, selbst wenn man ihm die Lösung fertig üergibt) und zur Laufzeit wird nochmal eine zentrale Methode für alle Forms aufgerufen.

Es gibt also mehrere zentrale Stellen, wo sich für alle Komponenten, zur Laufzeit oder im Designer, solche Anpassungen mit wenig Code einfügen lassen.