如何修改activeform窗体的字体颜色和大小？（50分）(50分)

我希望修改窗体的字体样式
在脚本中这样写
<param name="font.color" value = "黑体">
<param name="font.size" value = "12">
不行，请问怎样写才是正确的？

private
{ Private declarations }
procedure WMNCPAint(var Mes : TWMNCPaint)
message WM_NCPAINT;

procedure TForm1.WMNCPAint(var Mes : TWMNCPaint);
var
ACanvas : TCanvas;
begin
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do begin
Brush.Color := clActiveCaption;
Font.Name := 'Times New Roman';
Font.Size := 10;
Font.Color := clCaptionText;
Font.Style := [fsItalic, fsBold];
TextOut(GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER),
Round((GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height))/2) +1,
' Your title here!');
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free;
end;
end;

to 卷起千堆雪tyn :
我想做的是在activeform 得到网页中的参数，不想做的很复杂，况且我知道如何修改
activeform 的字体，主要是不知道如何将字体这样的参数传递给 activeform。

tell me too

[?][?][?]
是问题太难还是无法实现？怎么没有人理我[]

在ActiveForm 的TypeLibrary中加入属性参数 FONTCOLOR 和 FONTSIZE

在html文件中传递参数：
<param name='FONTCOLOR ' value='黑体'><param name='FONTSIZE' value='12'>

to joyuce:
我的思路是修改activeform窗体的字体，在set_font时同时修改窗体上组件的字体，
你提供的这个方法我知道，我觉得既然delphi提供了这样一个属性就一定有用，问题是
怎么用？[?]

你可以在ACTIVEFORM的TLB中定义属性，
我以前做的是把HTML上的TEXT控件作为参数传到ACTIVEFORM里；
这样就可以由外部传入字体和大小了，我试过；可行。

to nsj:
高！实在是高，给分！[]

接受答案了.