Siguiendo la forma de este componente lo lógico sería pensar en esta aproximación:
Código Delphi
[-]
...
published
...
property ActiveFont:TFont read FFont write FFont;
...
pero cuando fueras al Inspector de objetos y le dieras al botón [...] para asignar los valores correspondiente a tu fuente te llevarás una pequeña sorpresa; por así decirlo
Delphi no sabe que hacer para asignar de forma correcta los diferentes campos del
TFont, para que funcione correctamente creo que vas a tener que jugar con la
unit DesignEditors para definir un
Property Editor para la asignación del
TFont desde el inspector de objetos.
En cualquier caso y siendo un poco chapuzas, puedes poner algo del tipo:
Código Delphi
[-]
private
...
FFontName : string;
FOldFontName:string;
...
published
...
property ActiveFontName:string read FFontName write FFontName;
...
...
FOldFontName := Font.Name;
Font.Name := FFontName;
...
...
Font.Name := FOldFontName;
...
Así lograrías poder cambiar el tipo de letra en tiempo de diseño para cada uno de los componentes de forma individual desde el propio inspector de objetos, y de este modo cada componente podría tener su tipo de letra diferente si eso tiene alguna utilidad...
Este
cutre-procedimiento lo puedes extender también para el resto de propiedades del
TFont que quieras modificar... si así lo haces te recomiendo empezar todas esas propiedades por alguna palabra común por ejemplo:
FuenteActivaNombre, FuenteActivaTamaño, FuenteActivaEstilo, ... así lo que lograrías es que todas las propiedades aparezcan en el inspector de objetos
agrupadas.