一个很简单的问题,请多多指教

Question

不是很清楚，可能是TControl类吧。
/*************************************/
/*1、MY TOOL:*************************/
/*2、Delphi,Oracle,Sybase,C++/C*******/
/*3、PROJECT:*************************/
/*3、Boss*****************************/
/*4、为了五星的目标希望你早点结贴*****/
/*************************************/
下为我公司中餐定购点，大家随意随意.....
巴西小吃部：13033009888
阿根廷川味：13003059999
韩国料理城：3663371
英格兰拉面：3635476
西班牙火锅：3661693
中国大排挡：13956948888

Answer 1

//当字体改变的时候它会给子窗体发消息procedure TWinControl.Broadcast(var Message);
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
  begin
    Controls[I].WindowProc(TMessage(Message));
    if TMessage(Message).Result <> 0 then Exit;
  end;
end;procedure TWinControl.NotifyControls(Msg: Word);
var
  Message: TMessage;
begin
  Message.Msg := Msg;
  Message.WParam := 0;
  Message.LParam := 0;
  Message.Result := 0;
  Broadcast(Message);
end;procedure TWinControl.CMFontChanged(var Message: TMessage);
begin
  inherited;
  if HandleAllocated then Perform(WM_SETFONT, FFont.Handle, 0);
  NotifyControls(CM_PARENTFONTCHANGED);
end;procedure TControl.CMParentFontChanged(var Message: TMessage);
begin
  if FParentFont then
  begin
    if Message.wParam <> 0 then
      SetFont(TFont(Message.lParam)) else
      SetFont(FParent.FFont);
    FParentFont := True;
  end;
end;

Answer 2

窗口上所有可视控件都继承至TControl类
该类中有一属性FParentFont: Boolean
该属性是设置该控件字体是否继承到窗口控件，举例如下：
如你放一TBUTTON1控件于窗口上，该控件有ParentFont属性，决定是否沿用主窗口的字体格式