TFont , Изменение параметров

Дано

TMyClass = class(TPanel)
  Privete
    FCapFont: TFont;
    procedure SetCapFont(const Value: TFont);
  ......
  published
    property CapFont: TFont read FCapFont write SetFont;
  ....
end;
 
implementation
.....
procedure SetCapFont(const Value: TFont);
begin
  FCapFont.Assign(Value);
end;

Не могу понять на каком этапе нужно перерисовать капшн(DesignTime) при изменении например размера шрифта.
Если таки нада ловить месагу то пож. опишите как. заранее спасибо

procedure TControl.CMFontChanged(var Message: TMessage);
begin
  Invalidate;
end;
 
procedure TControl.SetFont(Value: TFont);
begin
  FFont.Assign(Value);
end;

Сообщение CM_FONTCHANGED.

Сообщение отредактировано: Rrader - 25.07.05, 14:10

Написал так:

procedure TUNIDate.Invalidate; override;
...
procedure TUNIDate.Invalidate;
var s: string;
begin
  inherited;
  drawHeader; //рисую на канвасе
end;

Падает на ошибке(Component "" HAs no Parent), когда пытаешся кинуть компонент на форму. Другими словами єта месага прилетает тада када еще ниче не нада рисовать. А еси вставить проверку на Parent <> nil он ваще ничего не делает.

Добавлено 25.07.05, 15:01
я уже разобрался.
кому интересно :
нада юзать FFont.OnChange