Фокус на компонент

[Altera]

Пишу компонент, как сделать так, что б на него устанавливался фокус, как на tButton или на tCheckBox? Предок класса tCustomControl (мне нужен предок с canvas-ом).

з.ы. Вот пишу:

tAtomikSpeedButton = class(TCustomControl)

и

procedure Register;
begin
  RegisterComponents('atomAltera', [tAtomikSpeedButton]);
end;

з.ы. Когда компонент на форму кидаю имя у него не AtomikSpeedButton1 а tAtomikSpeedButton. Почему, как исправить?

[BOBAH13]

Может потому что вы такой класс описали, с таким именем ?

tAtomikSpeedButton

И еще, что SetFocus и Focused уже не работают в дельфи ?

[Altera]

И еще, что SetFocus и Focused уже не работают в дельфи ?

Ну все нервные

Дело в том, что когда с компонента снимаеться фокус, он должен пере-Paint-тится, так ему узнать, что фокус снялся? Там месег придти должен? Какой?

[BOBAH13]

WM_KILLFOCUS, WM_SETFOCUS