我想做一个从TGraphicobject继承的控件，可是控件的字体.........

Question

我做了一个从TGraphicobject继承的控件，可是设置控件的字体时字体没改变，我应该怎样继承字体啊？
publicsh
  property Font；因为TControl中已经有了，所以我只是实现了一下，到底该怎么办啊 ？？？？

Answer 1

是TGraphicControl
还是
TGraphicObject

Answer 2

错了，是TGraphiControl
我用Canvas画的，TFont该怎么画上去啊

Answer 3

画的时候 Canvas.Font.Assign(Font);

Answer 4

比较安全的做法，在重载Paint函数中：
var
  oldFont: TFont;
begin
  oldFont := Canvas.Font;
  Canvas.Font := Font;
  try
    .....
  finally
    Canvas.Font := oldFont;
  end;
end;