Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: ParentFont aller Komponenten eines Forms setzen
23. Nov 2011, 19:43
einen hätt' ich noch
Delphi-Quellcode:
type
THackControl = Class(Controls.TControl)
public
Property ParentFont;
End;
...
if Control is TControl then
THackControl(Control).ParentFont := wasauchimmer;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|