我使用IP控件后,为什么窗体的字体全都变大了呢?

Question

我这样使用了一个IP控件:
  TIPEdit = class (TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
procedure TIPEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if not (csDesigning in ComponentState) then
  begin
    InitCommonControl(ICC_INTERNET_CLASSES);
    CreateSubClass(Params, WC_IPADDRESS);
  end;
end;但是当程序运行时,
问题 1:为什么我用鼠标进入该控件后再退出该窗体,则调用它的主窗体的某些字体变大,
     2.此时再进入使用该控件的窗体,则此窗体的字体全部变大?  

Answer 1

手动设置主窗体的Font
设置控件的Parent Font (好像是叫这个名字吧)= FALSE