（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

もしCLXでVCLと同じように逝くなら…
こんな感じのｺｰﾄﾞ書いてはどうよ？
Del6 Per VCLで確認。
これを適当に応用してみそ。

procedure SetBigFontToLabel(Ctrl: TControl);
var
　I, J: Integer;
begin
　If Ctrl is TLabel then
　begin
　　TLabel(Ctrl).Font.Size := 18;
　end
　else
　begin
　　J := Ctrl.ComponentCount - 1;
　　If J >= 0 then
　　　for I := 0 to J do
　　　　If Ctrl.Components[I] is TControl then
　　　　　SetBigFontToLabel(TControl(Ctrl.Components[I]));
　end;
end;

おっと書き忘れた。
適当にLabelをポンポンおいて、PanelやGroupBoxなどの中にも
適当に配置する。

んでFormのOnCreateなどに

SetBigFontToLabel(Self);

などとして使う。